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parti TO THE READER 

The first 100 pages carefully lead you from "watching the computer 
count fast" to where you have enough skill and confidence to write your 
own computer programs for creating random art, solving equations, or 
exploring microRESEABCH problems that interest you. 

If you are a complete novice , start with the introduction. 
If you are a beginner , start with Lesson 1. Work as many 

practice problems as you need. 
If you are a bit more sophisticated , read the summary at 

the end of Lesson 1, work a few problems from Practice 

Session 1. Then continue with Lesson 2. 
If you can already program in BASIC , read the summaries at 

the end of Lessons 1 & 2, work a few problems, and continue 

with Lesson 3. 
Lesson 4 introduces graphics, computer assisted art and some 

of the special goodies available on the TRS-80. 
Lesson 5 is devoted to solving problems that are easy to 

understand, but which would be very hard to solve with- 
out the assistance of a computer. 

PART II 

The first five Lessons will teach you most of what you need to know 
to use your computer in solving real problems. 

The nature of Lessons 6 to 17 is different. These lessons are 
devoted to special topics you may or may not need to learn about , de- 
pending upon your own particular interests. Lessons 6 to 17 may be 
read in any order, or ignored entirely until needed. Consult the 
table of contents for topics covered. 

The important thing is to HAVE FUN with your TRS-80. Remember, 
today's micro-computers are more versatile and more powerful than 
computers which cost 100 times as much, 20 years ago. Whether you 
purchased your TRS-80 as a playtoy or a serious tool, we hope you will 
soon be using it for both. 



TO THE I NSTRUCTOR 

This book is designed to be used by students for self -instruct ion 
(with or without a teacher's assistance). It has been successfully used 
by junior and senior high school students, secretaries, college students, 
6th grade math classes, as well as a group of busy doctors and business 
people. Numerous examples are developed step by step to demonstrate the 
thinking involved. Since computing is a skill that must be learned by 
practice, a variety of problems are included. As with any acquired skill, 
a awvi mflrh ran kf^n th<=> nponhvtfi interested and help develop good hab- 
its. Computing can and should be PUN. Students are fascinated by com- 
puters and will be responsive to your teaching. 

Most readers are familiar with whole-number arithmetic, but may not 
have .investigated the many tantalizing arithmetic puzzles that are easy 
to understand but hard to solve, unless a computer is available. A num- 
ber of our problems come from the area of Number Theory. Problems like 

1. Find squares like (ll) 2 = 121 or (264) 2 = 69696 whose digits 
read the same forward as backward (palindromic squares), 

2, Find squares such as ( 35853 ) 2 = 1285437609 in which all ten 
digits are present in the square. 

are not difficult to program once the rudiments are learned (Lessons 1, 
2,3). Each reader is encouraged to use common sense to write more effec- 
tive programs. Lessons 4,5,7,9,13,14, and 17 provide numerous interest- 
catching problems from non-mathematical areas. We hope each reader will 
discover new interests and power as his programming skills develop. 

Readers are encouraged to develop orderly (top-down, structured) pro- 
gramming habits without being preached at. Your assistance is sought 
in helping students develop this vital skill. 

Lessons 5 and 17 present 75 micro-research problems that are easv to 

imderstand. Micro-research problems demand thoughtful program design to 
produce results with a reasonable investment of computer time. All have 
been successfully programmed by students with no more than 9th grade 
mathematical skill . In many cases, the programs "develop" as do the ex- 
amples given in the text, starting first with a brute- force attack which 
could require weeks of computer time, and then gradually, as the early 
results are available for examination, refinements in program design 
(early trinnrmg of logic trees) suggest themselves, Eventually, many 
students devise programs that produce more results in 5 minutes than the 
original program could produce in five days. 

Appreciation and understanding of the value of skillful computing 
techniques are developed as needed, through experience. 



Hie material has been used with Models I, II, & III TRS-80 micro™ 
computers to teach introductory computing concepts to several different 
groups, including students in grades 5 through 14, adult neophytes having 
no experience on computers and little math beyond the 8th grade, secretar- 
ies and secretaries-in-traiiiing, a group of busy doctors, bankers and 
business people, and casual adult and child visitors at a museum. Each 
contributed to the presentation contained herein. Every vital concept is 
presented more than once, in different environments, to aid the student's 
comprehension. The important thing is to be sure readers also actively 
program computers, not passively read the text. Passive reading, like a 
spectator sport, does not develop skills. Encourage students to really 
program various kinds of problems. 

With the exception of Lesson 4 ART & GRAPHICS and a few special 
goodies available only on the TRS-80 Level II BASIC, most of the material 
presented here is applicable to any computer using BASIC. 

Hie first five lessons form a unit. Lessons 6 through 17 may be 
taken up in any order or ignored, as individual interests suggest. 

Our experience suggests having two or three students per computer 
produces better results than one person per computer — particularly in 
the early stages. 

Your authors welcome criticism, suggestions and correspondence. 

Richard V. Andree 8c Josephine P. Andree 

The University of Oklahoma 

Norman, Oklahoma 73019 
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PART I 

BmmJCITCH KB THE NOVICE I 

If you have never used a computer before, this introduction was written 
especially to h elp you ga in fami liarity with th e keyboard, the screen 
and the use of fBBgp , fOi/5fl , and 111 keys. Your computer 
will do arithmetic and display messages. The main purpose of the intro- 
duction is to lift you from neophyte to beginner. 

I£SSO? 1 MAKE YOUR TRS-80 TO& 6 

Beginners start here. A four-step program shows off your computer's 
speed as well as its versatility. Program instructions, PRINT varia- 
tions, and additional keyboard conmands are introduced. 

I£SSCftf 2 CHEATING TABTJiK 17 

Learn by prograrrming the computer to create tables of squares, cubes, 
etc. , for varying ranges and different step sizes. You are still not 
an expert, but you are well started. 

I£SSCN 3 COMPUTER-ASSISTED SOOTICMS 33 

You and your computer will solve problems that would be difficult, if 
not impossible, to solve without a computer. Nasty equations are easy 
to understand and to solve with the help of a simple computer program. 



LESSOR 4 ART & GRAPHICS 47 

Although this lesson is mostly fun, the ideas developed help design 
computer games and present graphical material in a dynamic format that 
is easy to understand. Lots of roan for fun and self-expression here. 

IESSCB 5 micro-RESEARCH PROBLEM 75 

Surprising as it may seem, you already have enough ccmputing-know-how 

puter assistance. A bit of eighth-grade mathematics, camion sense, and 
your computer are all that is needed to investigate problems that would 
intimidate a college student who did not have access to a computer or 
calculator. 



PAR? II 101 

A review of the contents of the rest of the book — which may be taken up 
in any order desired, or ignored, whichever serves your needs best. 

LE5SCK 6 TAPE CASSETTES 103 

As you develop longer programs you will wish to save the program on 
magnetic tape using the cassette player that came with your computer. 
Tape cassettes are a standard way of trading programs with other com- 
puter owners. Cassettes are used for storing data and results as well 
as programs. 

LESSON 7 GAMES & PLAYTOYS 109 

Everyone loves to play computer games. Use your own ingenuity to create 
new game programs and to improve programs written by others. 
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A serious programmer needs to know more about the powerful EDIT instruc- 
tions available on your computer. This is where you will find answers. 

LESSOR 9 SIMULATION 129 

College courses are given on SIMULATION, but the basic philosophy 
involved is easy to understand and not difficult to program. This 
introduction removes much of the mystery and enables you to program 
your own simulations and computer games. 



LESSOR 10 TYPES OF VARIABLES 143 

Single precision floating point Double precision floating point 

Integer variables (uses and limita- String variables 

tions) 

Subscripted variables Arrays and matrices 

LESSOR 11 TIPS AND ERROR MESSAGES 150 

Experience may be the best teacher, but you might as well profit from 
the experience of others. 

Tips on using TRS-80 BASIC: 

Saving memory 

Speeding up program execution 

Error messages and what they tell you 

I£SSCN 12 EXTENDED PRINT INSTRUCTIONS 159 

You may never need more PRINT instructions than those introduced in 
lassons 1, 3, 4. However, your microcomputer has several extra goodies 
ready to meet your needs if and when they arise, 

LBSSCN 13 MORE GRAPHICS 165 

Lesson 4 introduced the most commonly used graphics, but your TRS-80 
has a number of convenient extras you may wish to .investigate. 

LESSQ? 14 SIRING AND LOGICAL OPERATORS 169 

If "word processing" interests you, you should investigate the TRS-80 
SmiNG and IOGICAL operations more carefully. Two SENTENCE GENERATORS, 
A BUZZ-TOD PROGRAM, A ROBOT OCWSELOR and a fairly secure CIPHER PRO- 
GRAM, are included, as well as a more detailed examination of the 
LOGICAL OPERATORS: AND, OR, NOT. 

I£SSON 15 WHERE TO LOCK FOR ADDITIONAL PTOSfoiATTCN 180 

Tell "Greataunt Martha" you would much rather have a subscription to 
one of these magazines than a box of handkerchiefs for your next birth- 
day. You may get both. 



LESSOR 16 ATOITICNAL BASIC 184 

Additional BASIC instructions are available if and when you need them. 
Turn here if you need to do something we haven't discussed. 

LESSCH 17 Wm micro-KESEARCH PROBLEMS 188 

Lesson 5 presented 17 micro-RESEARCH PROBLEMS you could explore with 
the computing expertise available then. Here we discuss progranming 
practice, design and inprovement of programs using easy-to-follow 
examples, lesson 1/ tnen completes oxxr collection of seventy-five (75) 
choice micro-RESEARCH problems, each worthy of exploration, expansion, 
and investigation . This collection contains a wide variety of proposals 
including several, arithmetical explorations, Haiku poetry, logical 
decisions, calendar problems, dart and target games, loan and interest 
programs, treasure hunt games, caricatures, a speech timer, puzzles, 
recursive functions, polygonal maps, medical emergency prompter, num- 
ber theory, lattice problems, magic prime squares, graphs, monkeys at 
typewriters, amicable and sociable numbers, dance partners, and the 
notorious eight queens problem. They are here for your entertainment 
and education. Enjoy them. 

A FINAL WORD from your authors 214 

PCEX 215 
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INTRODUCTION 1 
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We assume you have no knowledge of computing, but are interested in 
learning. The way to learn cortputing is to compute! 

Just as in golf or bowling, it is more helpful to read about compute 
^g after you have tried your hand at the game enough to have a feel for 
its rudimentary swing. So let's begin. 

Let's start by using the computer as if it were a pocket calculator. 
It is a waste of the computer's power, but it will help you become famil- 
iar wi th the keyboard. Have someone turn it on for you. Depress the 
white [ENTER] key a couple of times. 




The keyboard is similar to a typewriter. If you wish to use a symbo l 
like = or + [=1 r+1 from the top row of the key, depress the [SHIFT 1 



SB 



key. The computer automatically types capital letters, as shown on the 
keys, so do not use the shift key unless you wish a symbol from the top 
half of a key. 

Don't try to "read" this introduction— the way to learn computing 
is to compute, so wait until you have a TB&-S0 at your fingertips before 
continuing. 
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Depress the following keys: 

1 . j BREAK! 

2. 1 ENTER! 



3. toy type: PRINT 3+5-f9-2 jENffiRl 



{This Lyitt f i f iiiv.'t6 thz cowciiXci iii 
ca6z it woa dainty 6omzthing. } 

[TiuM 16 thz feet/ you will u6z to 
6znd youn. typzd mz*6agz to thz 
zomputzn., ) 



iiic uuu$juuer sauuiu x^wi^juu wxlii cue sum xo. 
Your CRT-display will now show: 



'READY 

>PRINT 3+5+1-2 

IS 
READY 




Thz > symbol in&laatte thz computet 
am Kzady to ftzzzivz youn. typzd 
ImtAacZlon. 

Thz - 6hom mhvtz thz nzxt typzd 
chaAactzA milt appzcvi. 



Should you wish to clear the screen, depress the JCLEARI button, but there 
*s no need t o do so unless ^ou wish it cleared. You may also type 
<^ 1 ENTER] to GLear the Screen. 



What will the answer be if you type ? 
PRINT 4*9-2 [ENIER| 
Try it and see. 



Uo6t computz/ti o6 e thz 6ymbolA 
* &ok multiply and I ion. dividz. 



Forecast the result of each of the following, and then try them out 
on your TRS-80. 



PRINT 4/3 [ENTER 1 
PRINT 9*5 1 ENTER! 
PRINT 360*18 [ENTER | 



PRINT 1/2 + 0.6 ENTER 



Let's try some hard problems 
PRINT 774*817 lENIERl 



PRINT 79276/511017 |ENIER[ 
PRINT 317*1.41421 - 246*3.14159 



Hotz am zzko on thz top low. 
U thz Iz&tzn. "ok" which li> on 
thz 6zcond Kom. VouA computzA mill 
bz unhappy ifi you confiuMz thzm. 
Tfty it. onaz and 6zz &ok youAAzl&. 



H you typz 774*817 lEMTERl without 
PRINT, thz computzA mill do thz 
anlthmztiz but mill not pnlnZ ok. 
rgjj^n 6toKz thz kqmuIX. 
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^ e [.<"" 1 key is another important key for those of us who occasion- 
ally mistype. It will backspace and erase one ch aracter at a time. If 
you hold down the I SHIFT I key while you depress 1 <&=^ | the entire line 
you typed will be erased. Try it and see for yourself . 



Type 

PRINT "HELLO ' 



ENTER ! 



Hote the " " mcvtliA. 
ttiiwt happened? 



Type 
PRINT 



"SALUTATION ' 



ENIER ; 



PRINT "MX" NAME IS youA name." I ENIER| 

Now let's try something different. This time we shall put a " line 
number" in front of each statement. First type NEW I ENTER] 

Then type: 



100 PRINT "HELLO" | ENTER j 

110 PRINT "SA LUTATION S " :ENIER1 

120 GOTO 100 1 ENTER! 



That isn't progress, or is it? Well, nothing happened. Did it? Yes, it 
did, but it happened inside the computer, where we can't see it, not on 
the screen. 



Type 



LIST 



The campateA should tUt the tivt&e 
AtatzmzntA you typed in. Check thzm 
to be auaz they wexe ptwpeAZy znteJ&d 
uxith a Apace, afcte/i each numbeA 
and " " in thz. pKopex place* . 



Next type 

RUN I ENTERl 



key to get control again. 



After a bit , depres s the j BREAK , 

Depress th e [CLEAR] button. 

Type LIST | ENTER] 

and the computer should respond by displaying: 

100 PRINT "HELLO" 

11^ PRINT "SALUTATION " 

U2p GOTO 100 

HEAD? 



It is perfectly reasonable to change these instructions by retyping them. 
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Type 

100 PRINT "HELLO ljoua nam %1 ; [ENTER[ tiotz t/ie " " and t/ie ;. 

110 [KNTTRR] T'li-i £*o.ie,i the. ■U'litn.iictLcn in 110 

oi you mJLL 6ee wkzn t/ou type LIST 1 EMTERj . 
Now type 



LIST [ENTER! 

The screen should show 

100 PRINT fr HELLO j/ouA .name"; 
120 nnrcn iiwa 

Note that instruction 100 was changed and instruction Up was deleted, 
but instruction 120 is unchanged. 

Now type 



RON jENIER| 

let us write another program. Begin bv depressing [BREAK | to PRt th*> 
computer's attention. Then type: ' ' 

NEW lENTERj 



100 X - 0980 lEMEERl 

up y = 365 mmm 

120 Z = X*Y lEMEERI 



130 PRINT X; Y, Z (ENTER) 
140 G OTO 100 [Mffigj 
RON IEMCBRI 

The above program sets X=1980, then sets Y=365, then forms the product of 
the values of X and Y and stores it in a location called Z. Instruction 
130 then prints out the values of the numbers stored in locations X, Y, 
and Z. Instruction 140 then sends the computer back to instruction 100, 
which repeats the entire process. 

Depress the £EE££{ key to stop the computer. 
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3UM4ABX OF INTRODUCTION 



Let's see what you have learned thus far... 



To get the computer's attention, depress IbREmI key. 

Oice you get the computer's attention, which it indicates by 
displaying 




on the CRT (TV screen), you can work arithmetic problems involving +, -, 
*, / (add, subtract, multiply, divide) by typing PRIOT followed by the 
arithmetic problem. 

When the problem is displayed the way you wish it, depress I ENTER ! 
to send it to the corputer. Remember, nothing goes to the computer until 
you depress | ENTER! . 

Oh, yes. If you make an error in typing, just depress the [ 



ly^ckspace and erase. You can do it anytime before you depress the 
1 ENTER I key. 

To clear the screen, depress the LH&A RJ key , followed by fEMEER! if 
the >_ symbol is absent, or type CL3 \ ENTER; . 

You need to be careful about confusing 2ero, 0, and the letter oh, 0. 
Also, 1 and L are distinct. 

You have written a set of instructions to the computer, and the computer 
has followed these instructions. 

Now that you no longer fear the TES-80, let's begin our lessons. 
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: 'IS« 



|..LESSON 1 

-JfeteV ^ Elixir- 



1E2-J 



yH.-i 



BatSw 




So you don't know anything about computers or computing. Well, this 
won't make you an e;xpert, but let's see what we can do. 

Someone has connected and assembled the TBS-80 and turned it on for 
you. The screen says something on it. I don't know what because I don't 
know what was done last. 

If your TRS-80 has just been turned on, the screen may display 



H 



MEMORY SIZE? 



Tkt TKS-SO can 6&t cu>idz mmonxj 
faon. pswgJiamA wnJJXzn in languages 
othojt than BASIC, bat we bhaXJL not 
do &o. 



If so, just depress the white [EffiERj key. The screen will then display 
an additional message, which should esxd with 



V 



READY 



One word HEAD? is your clue that the computer is ready to accept 
instructions from you. 



rage i~z 



To clear up everything. , 



Depress the jBBEAKl key (upper right). 
The computer will add 

o 

' 'i?EADY 




below whatever was on the screen. Now you have its attention. The >- 
symbol below HEAD5T means the TBS-80 is waiting for you to type in an 
instruction. 

'Type NEW and depress the white [ENTERI key. 

Everything on the screen disappears — also any program inside disap- 
pears too — the slate is wiped clean for you, and the computer displays 




MOTE; Nothing qoza &nom tkz boxeen 
& #i e comput e/t until, you dzpnzAA 
tka \€NTEK\ key. 



£fow type 

210 X = 1 1 ENTER 1 
The screen should now show 



I(J you. mutype, ju&t uAe the\_ 



button to backs pace and ojwj>e—on. 
depieAA [ BREAK 1 and &tan£ the. en- 
tUte tine oveJi. 



(READY 
> sip X-l 
i» 

The symbol >_ indicates the TRS-80 is ready to accept another instruction, 
so type 

220 primt X; jENIERI Von? t ioKQtt. the ; 

The screen now shows 



READY 
> 21(3 X-l 
>aS0 PRINT X; 
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Continuing, type 

230 X = X + 1 
24(3 GOOD 22(3 



Uotd that GOTO U> onz voohd. 



lb make sure the program you typed is really there, type 

LIST lENTERl 
Your program will then be listed below whatever is already on the screen. 

>210 X*l 
>a2j3 PRINT X; 

>EM0 GOTO 220 
>LIST 

aip x=i 

220 PRINT X; 
230 X=X+1 
2M0 GOTO 22(3 
> 




Note the absence of the > symbols on the USTed program, indicating the 
computer typed it to you . 



^ow yo u are r eady to run your first numerical program. 
Type HUNT [ENTERl and watch what happens. 

You probably have a Level II BASIC, but if not, read the right-hand 
column instead of the left-hand column below. 



Level II BASIC 



Level I BASIC 



I* ypu hold down 1 SHIFT 1 and 
depress Lft], the program will halt 
unti l you d epress another key (with- 
out 1 SHIFT! ) . Try it a few times 
and see. 



4 1 key on 



If you depress the| _ 

left edge of the keyboard, the 
program will halt whatever it is 
doin g, as long as you keep the 
I f | key depressed, but will con- 
tinue whenever you let it up. Try 
it a few times and see. 



In either case, if you wish an emended halt, depress the I BKRAkI key. 
(Do so now.) Not only does the TES-80 stop, but it eve n tells you which 
instruction it was executing when you depress ed iBBEAKi . If you want 
the program to continue, simply type: OCKT 1 ENTEft 1 and it will continue. 

Note that in Level I BASIC, if the program is typing a muter, say 
425 or 438, and runs out of line, it prints part of the number at the end 
of one line and the rest of the number at the beginning of the next line. 

The output is difficult to read, but the data is printed quickly and the 
screen displays a lot of data at once. 
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Level II BASIC is a bit more sophisticated and will leave the end of 
the line blank, rather than break a number, but it still changes the 
colum spacing as the number of digits in the number changes in order to 
get as much output on a line as is convenient. The ; at the end of 

220 PRINT X; 
is what controls the "packed spacing" of this output. 



Depress [BREAK [ 



Type RUN | ENTER | 
to see what is meant. 
Let's look at our program again. 
Depress the fMEAK] key and the |CLEAR| key. 

Then type LIST [ENTER| /attd^ i^^ UST \ 

The corrputer should respond. / BOMBER is ;// 

£TO£AC£ LOCATION X 
AN£> STOR£ THE 
>UIST yV£V BI&Q.EH NUMBBr} 

2X0 X-l W B^K IN 

220 PRINT X; H&X LOCATION 

23|3 X-X+l 
2M0 GOTO 220 
READY 
>_ 

Instruction 230 X=X+1 looks odd. 
If it were a mathematical equation, it 
would have no solution. It is not a 
mathematical equation; it is an in- 
struction to a computer. 

X=X+1 This instructs the computer to "Take the number in the storage 
location called X, add 1 to it, store the new result back into 
the storage location called X." 

X-X+l could be more reasonably written as X+-X+1. However, it is almost 
universal computer practice to use - rather than +■ , probably 
because old fashioned typewriter keyboards contain ~ not -*• . 

Let's change instruction 22(3 PRINT X; by changing the semicolon to a 
cotnaa. To do this, we simply type 



220 PRINT X, jENTERl 
If you now type 



LIST I ENTER! 

the new program will be displayed belo w the LI ST instruction. Please do 
so before continuing. Then type RUN i ENTER I . 
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Note that now our program prints out its values in four nice columns. 
Isn't it impressive? 



Duld ha- 



Uo*.-~ ^4 4-U^ 



the semicolon after PRINT X 
Depress | BREAK 
Type LIST [ENTER, 



If so, experiment a bit and find out. 
to get the computer's attention. 



Type 22$ PRINT X lENTERl 
Type LIST JENTERl 

TVrrwa. OTTV ("ETVP'PL'dI 




Depress j BREAK I to get the computer's attention. 

Do some other experiments on your own. For example, change 230 X=X+1 to 
23$ S-X+.5 or 230 X=X+2 and see what happens when you type 

RUN [ENTER! . 

Remeirfoer, about the only thing you 
might do that would hurt the TRS-80 
would be to drop part of it or spill 
a beverage over it. Otherwise, it is 
pretty rugged, as long as. you don't 
open the case. 



A Word of Warning: 

It is always well to check t hat you have typed what you think you 
have typed before depressing the |ENT%R| key ... In most cases it is 
easy to correct an error by simply retyping that statement number and 
instruction, but i f you s hould happen to have typed LLIST (ENTEEj 
instead of LIST [ENTERJ you may have a problem you will need to call 
your instructor to fix. LLIST is also a perfectly valid instruction — 
it tells the TRS-80 to list your program on the attached line printer — 
but If your THS-SO has no line printer attached (and turned on), the 
computer will not accept an other i nstruction until it executes the im- 
possible instruction LLIST [EKTTER1 . To all appearances your computer 
will "lock-up." Your instructor can get you out of this difficulty 
without having to turn off the computer. If you are without an instruc- 
tor, open the small door on the back left top side of the keyboard, and 
press the button inside. 



10 
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If your TRS-80 has "keyboard bounce" (printing multiple letters on one 
keystroke), it means the contacts are dirty and no one inserted the "key- 
board fix" program when the TRS-80 was turned on. Ask for help if you 
have excessive troubles with keyboard bounce. Each TRS-80 has a keyboard- 
fix tape and manual packed with it. If you do not have an instructor, 
consult the manual that accompanies the keyboard fix tape. 

HAVE FUN!!! 



SWMARZ OF^ LESSON 1_ 

Let T s see what you have learned thus far. . . 

Depress [EREAKl key to get computer's attention if it is busy. 

Type NEW JENTEeI to clear out everything and start over. 

Number each instruction and put a space between the number and its in- 
struction. 

(I D ' you h<u£. to Ytumboji an inAt/iucXlon tht TVS- BO will pzK^onm that in- 
struction tigkt. th in, bat not Atosui- It. ioK lat&K a^e. Tam tuplnq 
PRIAHT X, V, T, i lENTERl .) 

You can erase errors by using the j <^T~j key as a "backspace" if you have 
not depressed 1 ENTER 1 . 



If you have depressed | ENTER 1 it's easy to change instructions, merely 
retype the number and new instruction. You may insert additional in- 
structions between those already in use by using statement numbers 
that fall between those already used. 

Holding down I SHIFT | while you depress jo [ erases the entire line. 
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The symbol >- indicates the computer is ready to receive typed in- 
structions from you. 



If the >» symbol is not there, depress lENTERi or 1 BREAK 1 1 ENTER I . 

In the PRINT instruction, the use of a semicolon ; between or after 
variables will give a "packed format", while the use of a comma, 
prodtices four columns. No symbol gives one output per line (wasteful). 



You may halt the output (temporarily) by depressing the 



if you 



have a Level I. If you have a Level II, hold do wn I SHIFT | and depress 

1 ^f | ' *^-j^*v-^w i^xj xxv^j ^^A-^jt^ I ~«---*~*. •*• 1 V«, j nn .LJXmumV t UW V.AJJU UJ.JUUX5 . 

k*^ 1 ENTERl produces a listing of the program currently in storage. 

Among your output you may discover some strange- looking numbers, such as 
1.23456E+08 or 2.22222E-05. The computer displays only six significant 
decimal digits, and shows the magnitude by appending an E+nn or E~nn to 
indicate the power of ten by which the preceding fraction should be 
multiplied. 

Hius 

1.23456E+08 = 1.2345S*10' f: 08 = 123456000. (Bat mcalZ thu may be. in 

wioh. by ±5 in the. ztvznth 
place, , that i6, by ±500,} 

2.22222E-05 « 2.22222*10~ 5 " = .0000222222 (±J000000000S) 
3.45678E+11 = 345678000000 
-4.68024E-07 = -.000(900468024 

This convenient notation, a cousin of the so-called "scientific notation," 
is used on most modern computing systems, including many hand-held cal- 
culators . 

PRINT X,Y;Z;T will print values of X Y Z T , spaced as shown. 

|CLEAR| or fc] [Llfsl fENTERl will clear the screen. 

ISHUTl 1-~P| will produce double size letters on the screen (see 

problem 13 ). 



Usually [CLEAR] is depressed just before using I SHIFT I 
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PRACTICE SESSION 1 

Problems 1 to 6 make use of the program discussed in the text. Start by 
typing it in, LISTing the program and RUNning it to check that it is 
functioning properly before you start the problem set. 

depress 1 BREAK) key, then type: 



NEW 
21(3 
22(3 
23(3 
24(9 



IenterI 

X - 1 _ 
PRINT X; 
X = X + 1 
GOTO 22(9 



CENTER 



IENTERI 
IENTER 



LIST 


I ENTER! 


RUN 


IenterI 


(BREAK 




oayr 


1 enter] 


|BREAK 






Now you are ready to start the practice set. 

1. Type in the program (using 22(3 PRINT X;) first given in this lesson. 



Run it a few times with 23(3 
in turn. 

23(3 X=X+.5 

or 23?) X=X+ 5 

or 23(3 X=X+ 2 

or 23(3 X=X+.l 

Type UST 
RUN 



X=X+1 replaced by each of the following 



ENTER 
ENTER 



ENTER 
ENTER 



.ENTER. 
tt5fB8 



each time you change instruction 230. Note any peculiar behavior and 
think about it a bit. Discuss it with your instructor or a fellow 
computer buff. 
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2. Id the program above, replace 210 X=l with 210 X=7 and rerun 
the program. 

3. Forecast the output of the program. 

210 X-l 

220 PRINT X, 

230 X=X+X 

240 GOTO 220 

Try it out and test your forecast. What about column spacing? 
The error message ?0V ERROR IN 230 indicates that the arithmetic 
operation in instruction 230 produced a result too large for the 

,*«™«.~( j — 1 3-i- -i -, .. - .,DO .... 

larger than the total number of atoms in the solar system. 

4. What output would you exoect the orogram of problem 3 to produce if 
240 GOTO 220 were replaced with 240 GOTO 210? 

Try it out and verify your forecast, or explain why the computer did 
not do as you forecast. 

wnat would happen if you used 240 GOTO 230? 
Be sure you understand these points. 



Let's try an other program. Depress jBHEAKl if needed. Then type 
NEW [E§2EH|. 

If you know that most computing systems use * to indicate multipli- 
cation, you should be able to forecast what the following program 
will produce. 

210 X=2 

220 PRINT X, 

230 X=X*X 

240 GOTO 220 

Make a forecast. Then run the program. If the results are unexpect- 
ed, reread problem 3. 

Replace instruction 220 PROT X, in problem 5 with 220 PRINT X, X+5 
and see what happens. Before running the program, try to forecast 
the output of the first 5 lines. 

Try some experiments on your own. Don't be afraid— you are not apt 
to harm the TRS-80 computer providing you don't eat or drink In the 
computer room an d don't move or bump it while it is connected. Be 
sure to depress jBEEAKj and type NEW lENTERj before you start a new 
program. 

Tkz nm iviAtfuia&lonA u6dd In p'wbZ&m6 8,9,10 uiiKL be cUacuo* <id 
in doAcul ZcuteA. How all you need to know lb that 
IF HND(0)<.05 THEN CIS iM pionounczd "I<5 ' fumdorn numbejt 
iM leA6 than .05 tkm clzaA tkz beAivn." 
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8. Let's try another program. Depress [BKEAKI if needed. Then type 
NEW PMERl . 

level II BASIC Uva j mic 

10 PRINT @ RND(1000), "HI tijp^JjOuA wane" ; [ENTER! -, k a 

15 IF RND(0 )<.?)5 T KEN CLS [MrER] ^ ^ j BASIC ^„ 

20 OXO 1?) Ml ^ E ^ 

RON jENTERl LA] CD «■»«* -£* 

toX££ beAave 

9. Experiment a bit by changing instruction 15 IF RND(0) < .05 THEN 
CLS to one of those suggested below. 

15 IF HND(0) <.01 THEN CLS 

or 15 IF RND(0) <.l THEN CLS iVon' t &o*g<U to dzpKQA* lENTERl 

or 15 IF RND(0) <.5 THEN CLS ertch time you change an In- 

or 15 CLS &t/iuc&lon. 3 

10. Try combining the program in the text with that of problem 8, with 
instruction 20 omitted, giving: 

1?) PRINT @ RND(1000), nHI ^P e ^ ou/t name"; 

15 IF RND(0) < .95 THEN 0£ (T{/pe 2 fENTERl to deXeXe *nA#t. 20.) 

210 X-l J/ 

22(3 PRINT X; 

230 X=X+1 

240 GOTO 220 

11. Change the instruction 240 GOTO 220 to 240 GOTO 10 in problem 
10. Forecast the output before you RUN the program. If your fore- 
cast was not valid, try to find a why before reading problem 12. 



12. Delete instruction 210 X=l by typing 210 IKNim When! >_ 

appears, insert 5 X=l. Type LIST iENTERJ to check your new pro- 
gram. Before you RUN the program, try to forecast the result. Why 
is it different than that of problem 11 which used the same in- 
structions, but placed differently in the program? 

13. If you have a Level II BASIC, please try the following sometime 
when you have a program that does not contain CLS in the computer. 

Depress [BREAK] if needed. 

Depress 1CLEARI 

Hold down ISHIFTI an d depress I— > I 

Type LIST lENTERl 

Notice that your program is listed in characters twice as large as 

before . 

Now type RUN lENTERl 

'The output is also double size. This is handy if you are usi ng the 

computer with a class or group. Double size will last until ["CLEAR I 
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key is depressed or until you execu te a CLS i nstr ction . To get the 
regular size back, depress ! BREAK 1 and then rXX flARl. 
If you fail to clear the screen before you depress 1 SHIFT I I *=> 1 , 
your uGUi>jlS— size xetuers anci nunioers obliterate half of the iiB-tei'lal 
on the screen to make room for the larger letters, but any material 
printed after that will be complete. 

14. Have fun. Make your own variations. 

Forecast t he resu lt before you run each program. 
Try SEW 1 ENTERS 

2105 X = 5 I ENTER I 



220 PRINT X; X+5; X+10; X+15; [ENTER 
230 X - X+20 | ENXERJ 



240 GOTO 220 1 ENTER 



Now investigate what happens if you omit the final ; in line 220. 
What happens if you change the semicolons to commas in line 220 
(with and without the final conna)? 

15. Can you write a program that will start with X - 1 and count by 

threes, with exactly four numbers on each line? There are several 
correct ways to write such a program, so when you are finished, 
compare your program with that of a friend who also has a computer. 

IB, Try the following program. 
NEW I ENTER! 



100 X ^ 2 I ENTER I 

110 PRINT X, X*X, X*X*X, X*X*X*X [ EKIER [ 

120 X = X+l 1 ENTER | 

130 GOTO 110 1 ENTER 1 



HON ENTER 
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In our first lesson, we learned to make the computer 

count, using various step sizes 

to print in different formats, depending upon whether we used 

PRINT X 
or PRINT X; 
or PRINT X, 



IBEEAKI 



We als o lea rned th e essential handling of the computer using 

I ENTER 1 and I ^— ["back space" keys 

and to type NEW JEETCERl to clear out old program and data, ready to 

accept new ones. 

We rewrite the counting program using a slightly different philosophy 
below ( for reasons you will soon appreciate . ) We shall use B = begin- 
ning value, S = stepsize by which X will be increased, and F = final 
value, after which we wish the computer to stop. 



NEW CENTER I 
2 B=l Wl'ER] 
S=l i ENTER I 



4 
6 



x ;* b rmran 

110 PRINT X; lEMCEftl 
X = X+S IENIEBI 



120 
130 



IF X < F THEN 110 i ENTER! 



Instruction 130 examines the current value of X and if X is less than 
F, sends the program back to instruction 110. If you feel at all in- 
secure about this program, put it on the computer and RON it before 
continuing. 
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The real advantage of this technique is that we can eas ily cha nge 
the step size by changing instruction 4 to 4 S = .5 jENTERf 

Indeed, we may rewrite the program slightly to input values of B, 
S, and F from the keyboard instead of assigning them in instructions 2, 
4 and 6. 

We do so next, using the instruction INPUT B,S,F . When the computer 
executes this instruction it will display a question mark on the TV 
screen and wait for you to type in three values, separated by conmas. 
The values will be assigned, in the order typed, to variables B,S, and F. 

Thp<?(^ ~\ a1"f ore icoro need o<=> +Vnsvrr owi -*"U« •;«-4+<.«nl 1 ~4-i — **-. ~-e 4..U-. „i 

ftsginning value, Step size, and Final valued 
The revised program is: 



NEW lENTERl 

9p inpu t b,s,f mm) 

100 X=B jENTERI 

110 PRINT X^ 

120 X=X+S 

130 IF X < F THEN 110 IkNTKRl 

140 PRINT | ENTER] 

150 PRINT "END OF TABLE W ITH B,S,F="; B;S;F 1 EfflER | 

160 PRINT : PRINT IENTER1 

170 GOTO 9 lENTERi 

RUN IENTER1 

Again, note the use of instruction 
130 IF X<F 1HEN 110. 

As long as X is less than F, the program loops back to 110 PRINT X; 
but when X^F, the program continues with statements 140, 150, 160, and 
170 which upspaces the printed matter, prints an END OF TABLE message, 
and then sends the computer back to 90 for a new set of input values. 

Instruction 150 PRINT ,T END OF TABLE WITH B,S,F =";B;S;F is particularly 
interesting. It coifcines the printing of a message in quotes, " " 
with the printing of the values of the variables B,S and F, which must 
not be included within the quotes . 

^y this pr ogram on your 1B5-80 before continuing. Begin by t yping 
REN fENTERI . When a ? appears on the screen, type 1, 1, 100 I ENTER I . 
Watch the output. When a ? appears at the bottom of the screen, type 
2 > * 5 > 19 lENXEJTl or some B, S, F values of your own choice. 

Let's write a program to create a table of values of 
X X 2 X 3 X 4 
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When our program is run, it will accept values B, S, F from the keyboard. 
It will set X=B and print out values of X, 3r, 3r, X for that value of X. 
Then the instruction X-X+S will add S to the current value of X and 
print another set of X, 27, 2T, X for the new value before adding 
another S to the current X. 

This loop will continue until X exceeds the value of F (X>F) in which 
case the program will PRINT a blank line (16(9) followed by (170) an 
END OF TABLE message. 

Cas e way t o do it is: 
NO? IENTERl 



100 PRINT "PLEAS E TYPE BEGINNING VALUE, STEP SIZE, FINAL VALUE !, : {ENTER1 

1^5 INPU T B,S,F iENTERl 

110 X-B IENTERl 

120 Y-X*X fENTERI 

130 PRINT X, Y, X *Y, Y*Y IENTERl 

140 X-X+S IENTERl , , 

150 IF X < = F TH EN 120 iENTERl 

160 PRINT IENTERl 

170 PRINT "END OF TABLE" 1 ENTER! 



RUN iENTERl 
Let us examine the program tn detail. 

The instruction 

105 INPUT B,S,F 

causes the computer to type a ? and wait for the user t o type 
three values separated by commas and depress the I ENTER] key. 

Instructions 100 and 105 can be combined into a single statement, but we 
shall not do so yet. 

Instructions 

110 X=B 

120 Y=X*X 

130 PRINT X, Y, X*Y, Y*Y 

do just what you learned to expect in lesson one. Note that by 
using commas between output, we obtain four neat coIufhs. Also note 
that the use of Y=X*X saves half of the multiplications that would 
be required by « . 

PRINT X, X*X, X*X*X, X*X*X*X since Y*X = V* and Y*Y = X . 

I&e instruction 

140 X=X+S 

merely increases the current value of X by the amount in S. 
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Next we use the branch instruction 

150 IF X<=F THEN 12(3 

This instruction conpares the values stored in X and in F. If the 
value in a is less than or equal to (<=) the value in F, the pro- 
gram loops back to instruction 120. Otherwise the instruction which 
follows instruction 150 (namely 160 PRINT) is executed next. 



160 
170 



r 

100 

105 
110 
120 
130 
140 
150 
160 
170 



PRIM 1 
PRINT 



'END OF TABLET 



Instruction 160 merely prints a blank line, while instruction 170 
prints the message indica ted in quot es. If after entering the pro- 
gram, vou depress ICLEARI type LIST \m\:M , the computer display 
will show 



LIST 

PRINT "TYPE BEGINNING VALUE, STEP SIZE, FINAL VALUE"; 

INPUT B,S,F 

X=B 

Y«X*X 

PRINT X, Y, X*Y, Y*Y 

X~X-HS 

LFX<= F 1HEN 120 

PRINT 

PRINT "END OF TABLE" 



READY 



If you now type RUN tENTERI , the conputer will respond 

> RUN 

TYPE BEGINNING VALUE, STEP SIZE, FINAL VALUE? 



If you respond with 1,1,5 [ENTER 
below results: 



] , the table of X, X 2 , X 3 , X 4 gives the 



1 1 


1 


1 


2 4 


8 


16 


3 9 


27 


81 


4 16 


64 


256 


5 25 


125 


625 


END OF TABLE 




READY 






V?- 







If you type RUN 1ENTERI again, the conputer will again respond with 
TYPE BEGINNING VALUE, STEP SIZE, FINAL VALUE? 

and if you type 1,.5,8 ENTER! , the screen will fill up and "scroll out 
the top" displaying 
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fl.5 


2.25 


3.375 


5.0625 


i 


2 


4 


8 


16 




2.5 


6.25 


15.625 


39,0625 




3 


9 


27 


81 




3.5 


12.25 


42.875 


150.063 




4 


16 


64 


256 




4.5 


2(3.25 


91.125 


410.063 




5 


25 


125 


625 




5.5 


30.25 


166.375 


915.063 




6 


36 


216 


1296 




6.5 


42.25 


274.625 


1785.06 




7 


49 


343 


2401 




7.5 


56.25 


421.875 


3164.06 




8 


64 


512 


4096 




END OF TABLE 








READY 










VN- 








; 



So, you see our computer works with fraction values as well as with 
whole numbers. 

Note that (2.5) 4 « 39.0625 which is correct, while for (3.5) 4 the 
conputer prints 150.063 instead of the correct value 150.0625. This is 
because, although the conputer actually contains more than six digits of 
accuracy internally, it only displays six digits of accuracy. This will 
prove to be both a blessing and a curse, as we shall see. 

If you are using a TBS-80 with Level II BASIC, it is quite feasible 
to obtain additional accuracy on it by declaring X and Y as DOUBLE PRE- 
CISION variables, but to do so now would only distract our learning pro- 
cedure. Problems in "limited precision" and "rounding" also occur in 
double precision arithmetic — although not as frequently. 

^ jet us typ e another set of valu es into our table. First, of course, 
depress ICLEARi and type RUN tENTEKI . When the computer prompts you, 
type 0, .1,1 (MSD. You should obtain: 



1 


.01 


IE-03 


1 E-04 


2 


.04 


8E-03 


1.6E-03 


3 


.09 


.027 


8.1E-03 


4 


.16 


.064 


.0256 


5 


.25 


.125 


.0625 


6 


.36 


.216 


.1296 


7 


.49 


.343 


.2401 


8 


.64 


.512 


.4096 


9 


.81 


.729 


.6561 
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,«^ ^ et ' S ^^^ our Program slightly by adding another instruction, 
1(58 CLS. 

To do so 

Depress [BREAK! a nd jENrERi (if necessary) to 

obtain | >_ on your screen and then type 



Next, depress {CLEAR! and type LIST 
which should start 



to view the current program, 



W MOT ^TYPE BEGINNING VALUE, STEP SIZE, FINAL VALUE"; 



lias as 

11(9 X=B 



with the new instruction 1(36 tucked properly between instruction 105 and 
lip. r 

Isn't that neat? 

The instruction CLS is called clear screen . It clears the screen 
for you whenever it is executed. Try several B, S, F values of your own 
choice. Note that if you use B, Si F = 0, .1, 5, the table scrolls off 
the top before you can read it. You can stop this at any time you wish. 



In Level II BASIC 

Hold down I SHIFT I and depress [jTj 
to stop the program. To continue 
the program, depress 



without 



shift (or most any other key). 



In Level I BASIC 



key 



Depress and hold down the 

To c ontin ue the program, release 

the 



key. 



If you prefer, depress FbHEAkI to stop the program. Type COT 1 I ENTER* 
to contimie. ' 
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x 2 , x 3 , - 4 



It would be nice to have headings at the top of the column of X, 
4 
X we are printing. It is not hard. We add: 

108 PRINT "X SQUARE CUBE 4-TH POWER' [ENTER) 

So now our program reads: 

100 PRINT "TYPE BEGINNING VALUE, STEP SIZE, FINAL VALUE"; 

105 INPUT B,S,F 

106 CLS 

108 PRINT "X SQUARE CUBE 4-TH POWER" 

110 X = B 

120 Y = X*X 

130 PRINT X, Y, X*Y, Y*Y 

140 X = X + S 

150 IF X<=F THEN 120 

160 PRINT 

170 PRINT" END OF TABLE" 



Type LIST 1 ENTER! 

to list your program and see if it agrees. 



Then type RUN [ENTER I 

and observe the output when you enter B, S, F = 2, 1, 9 

It should be 

X SQUARE CUBE 4-TH POWER 

2 4 8 16 

3 9 27 81 



7 49 343 2481 

8 64 512 4096 

9 81 729 6561 

If your headings do not seem to be lining up properly, change the spacing 
inside the quotation marks in the instruction 

108 PRINT ,r X SQUARE CUBE 4-TH POWER" 

until it pleases you. 

Note that the instruction 

150 IFX <= F THEN 120 

ma ^ es a decision by conparing the values of X and F. (IF X <= F THEN 
120) The IF instruction produces a branching in the path of the in- 
structions, and takes the branch path (loop) instead of continuing 
on if the given condition is satisfied. This is indeed a powerful 
idea. 

Try it again with B, S, F = 2, .5, 7. 
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As an experiment to test your understanding, let us insert another in- 
struction. 



125 Y = y*v (Note: The 108 \ENTER[ deletes instruction 108 3 which 
108 tEftTFERf would have printed erroneous headings as previously 

r I 1 entered, ) 

You should forecast the output of the new program and insert new 
headings in instruction 108 before running the program. 

100 PRINT "TYPE BEGINNING VALUE, STEP SIZE, FINAL VALUE"; 

105 INPUT B,S,F 

106 CLS 

WO \irunc/lA, new ¥im.Q*UlQ& Y12A.Z.) 

110 X - B 

120 Y = X*X 

125 Y = Y*Y 

130 PRINT X,Y,X*Y,Y*Y 

140 X = X + S 

150 IF X< = F THEN 120 

160 PRINT 

170 PRINT" END OF TABLE" 

The actual output for B,S,F = 2, .5, 10 is: 

2 16 32 256 

2.5 39.0625 97.6563 1525.88 

3 81 243 6561 
3.5 150.062 525.219 22518.7 

4 256 1024 65536 



As you experiment a bit, yo\i will find the computer occasionally 
switching to an odd-looking nuirber format, perhaps 

1.23456E+08 

This is called the "exponential" or "scientific" notation. The E+08 
means to multiply 1.23456 by 10 8 (i.e. , move the decimal point 8 places 
to the right). 

Similarly. 1.23456E--04 would mean to multiply by 10~^ (i.e. , move decimal 
point 4 places to the left ) . 

4.21653E-H2 - 4216530000000 (with a. possible error of +5 in the 7th place) 

7.65432E-08 ^.000000^765432 (with a pos Sii) le error of +5 in the 14th place ) 
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If you are familiar with trigonometry and have Level II BASIC, you 
may wish to substitute. 

1(58 PRINT "X", "SIN(X) n , "COS(X)", "EXP(X) M 

13(5 PRINT X, SIN(X), COS(X), EXP(X) 

There is no need to retype the entire program; just get 



READY 



and type in 



1(98 PRINT "X', "SIN(X)", "OOSCX)", "EX P(X)" I ENTER] 
13(3 PRINT X, SIN(X), OOS(X), EXP(X) I ENTER! 

Run the revised program. 

Note: we obtained the spacing desired in statement 1(98 by enclosing 
each column heading in quotation marks and separating the columns with 
commas, just as we did in statement 130 which prints the values. This is 
easier than using just one pair of quotation marks. 
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SUMMARY OF LESSON 2 

What have you learned in Lesson 2? 
Our new program extended your knowledge of the PRINT instruction to in- 
clude the possibility of printing several different values from the same 
instruction, and of doing computation inside of the PRINT instruction 
itself. 

You really do have a lot of computing power at your fingertips now. 

KEYBOARD CO&&3AND5 



1 CLEAR I 

1 break! 



I SHUT) 



Enter line from screen to computer. 
(Tl par t.hp sptppti 

TRS-80, stop what yo u are doing and pay attention. 
COST jEMERi to continue. 

Backspace and erase. 

Erase entire line. 



Type 



! SHIFT @ 



(for Level I) 
(for Level II) 



- SKP\ 



(Release the \_§j key, to continue..) 
( Pep/L&M any key, without u&ing 



NEW ENTER 



RUN J ENTER 
LIST |ENIER 
SHIFT I — »» 



single size. 
BASIC INSTRUCTIONS DISCUSSED THUS FAR 



Erase current program and data, clear screen and 
pay attention. 

Run the program now in memory. 

List the program now in memory. 

To get double-sized output ; [CLEAR [ to return to 



X = B 

Y = A*X*X +■ 4.6*X 



3.172 



"I Compu, 
y it in 
J oh eq\ 



putoA value, on night and AtoneA 

the, location named at le$t 
equal* bign. 



PRUSiT X,Y;Z; T,X*Y 1 

PRINT N; "VALUES OF X TOTAL"; Y 



PhajvU valuer o& vanlableA on. 
zxpKeA&ionA indicated. M&o ptiyvU 
any me6Aage given in6i.de. o& quota- 
tion mcudu. Semi.colon i& faon. 
naAAjow spacing, comma ^on. vaide 
6 pacing. 
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INPUT 'TYPE X VALUE"; X 



Typu m2A&agz In quotes, sottomd 
by a question monk and tlien accep-t6 
valuzA fatwm ktyboa/id and 6tox&A 
t/iem in Loaoutlon indlcatzd. 



IF X < = F THEN 120 



CampaAZA valuer o& vaJtiablte X and 
F. Iq X value. Xj> I&sa than ok 
dquat to F value., then in&txuction 
120 am zxecuted next. Q'tkeju&Ue,, 
the InMtKucZLon fallowing the. IF 
iivs&iuction am executed next. 



+ add 

subtract 
* multiply 
I divide 
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PRACTICE SESSION 2 

As in lesson 1, you should begin by typing in, listing, checking and 
running the main program under discussion in this Lesson, namely: 

100 PRINT "TYPE BEGINNING VALUE, STEP SIZE, FINAL VALUE"; 

105 INPUT B,S,F 

106 CLS 

108 PRINT " X SQUARE CURE 4-TH POWER" 

110 X - B 
l^p l — A*A 

130 PRINT X,Y, X*Y, Y*Y 

140 X = X + S 

150 IF X <- F THEN 12p 

160 PRINT 

170 PRINT " END OF TABLE" 

la. Run the textbook program given above, 
lb. Change instruction 140 X=X+S 

to 140 A=A*S 

and run the program. (Do you need to also change instruction 108?) 

2. What happens if the program in the text is given B,S,F as 0, 2, 7 
so that the step misses F = 7? Does it stop at 6 or at 8? 

3. a. Write a program of your own to create a table of values of 

X X+3 (X+3)2 

for X = 1, 2, 3, ... , 10 

b. Modify your program so it will accept input values B,S,F and 
print out 

X ,X+3 , (X+3-r 

for X values from B to F in steps of S. 

4. Write some programs of your own choice using the instructions we have 
discussed . 

5. Write a program to INPUT the radius R, of a sphere, and print 
out on one line the radius, volume and surface area of the sphere 
using 

Volume ~ 4 -3 Surface Area = 4ttR^ 

3 

(fe/fia«. tt = 3.14159...) 



in 
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6. Modify your program of problem 5 to INPUT values: B, S, F 
(for Beginning value, Step size and Final value) and PRINT a 
table of values of the radius, volume and surface area of spheres 
of radius B, B+S, B+2S, B+3S,...,F. 

7. Write a program to convert Fahrenheit temperature to Celsius. 

C = | (F - 32) 

8. Write a program to convert temperature in degrees Celsius to 
Fahrenheit temperature. 

F « | (C) + 32 

9. Rewrite instruction 108 in the program that produces powers of 
numbers, so that the headings are valid after instruction 125 Y - Y*Y 
is also inserted. Check it by using B, S, F = 2, 1, 4 

10. If you have I£VEL II BASIC, try adding the following statement to the 

2 3 4 
program that makes tables of x, x , x , x 

5 DEFDBL X, Y 

and RUN the program with B, S, F = 2, .5, 6 

4 
Note that we no longer have problems with 4.5 = 410.0625 being 

rounded to 410.063 since we are no longer restricted to 6 decimal 

digits in our arithmetic. The DEFDBL X,Y instruction permits 

the TRS-80 to compute with and display up to sixteen decimal digits 

of accuracy when needed. We shall discuss this further when the 

additional accuracy is really needed. (What happens to the four 

columns of output?) 

11. Write a program to create tables of values of 

3 6 9 

X, X , X , X 

with proper headings for various values of B, S, F typed in by the 

user. 

2 3 4 

12. What output occurs in the program to produce a table of x, x , x , x 

if some or all of B, S, F are negative? Try B, S, F = 2, -.5, -3 and 
B, S, F = -2, 1, 5 and B, S, F = -1, -1, -6, 

13. What happens when scrae of B, S, F are negative in the table of powers 
program that includes 125 Y = Y*Y ? 
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f 



14a. If your BASIC includes a square root function SQR( ) try 
using 

120 Y = SQE(X) 

139 PRINT X I Y,SQB(Y),SQR(SQR(Y)) 
in the text program. 

b. If you don't have a SQR( ) function, try 
12(3 Y == X*X*X 
130 PRINT X,Y,X*Y,Y*Y 

Be sure to alter instruction 108 to print a correct heading for the 
r.nrrpnt tahif=> columns In either Ca) or CbV 

15. What would happen to the program if the instruction that prints the 
heading were changed to 

123 PRINT"X SQUARE CUBE 4-7H POWER" 

Try it out and see. After you understand what happened, and why, 
delete instruction 123 by typing 



123 (ENTER | 

Notice: If mathematics frightens you, you can laugh at vour fears now. 
With a computer to do the arithmetic, all you need to do is 
type in the formula and the corrputer will do the arithmetic for 
you. It really is easy to do problems that used to stunp you. 
Try it ; you'll like it! 

16. If you lUke mathematics, you may wish to start by proving that the 
area of a rhombus (a r? stepped-on" square) is given by iCD where 
C and D are the lengths of its diagonals. If you don't like math- 
ematics, just believe us that the area of a rhombus is half the 
product of its diagonals. (OK?) 

Write a program that will accept input values of C and D and 
print out the message 

THE AREA OF A RHOMBUS HAVING DIAGONALS AND IS . 

with the blanks filled in with the proper values. After your 
program is running properly, put in some extra instructions that 
will print out the message 

THE VALUES OF C AND D MUST BOTH BE POSITIVE, 
if anyone uses negative or zero values as input. 
Hint: 

100 INPUT "PLEASE TYPE VALUES OF DIAGONALS C,D = "; C,D 
110 IF C < GOTO 500 
120 IF D < GOTO 500 
130 A = .5*C#D 

150 PRINT "THE AREA OF A RHOMBUS HAVING DIAGONALS ";C;"AND"; 

D; ,r IS M ;A 
160 PRINT 
170 GOK) 100 

{aorutLmmd on nzxt page.) 
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500 PRINT "THE VALUES OF C AND D MUST BOTH BE POSITIVE." 

51(3 PRIM' 

52(9 PRINT 

53(3 GOTO 100 

17. If N is the number of sides in a regular polygon and L is the length 
of each side, then the radius of the inscribed circle is 

L cos K , _, 7T 
2 HTK Wnere K = N 

The radius of the circumscribed circle is 

T. - 

where K - *= 



2 sin K ^^ & " N 
area of any circle 
3.14159... You should be able to create a program that would 



The area of any circle is given by trr where r is its radius and 



list 

Number of Sides/ Area of Inscribed Circle/ Area of Circumscribed 

Circle 
for polygons having 3 or more sides each of length 1 unit. Do so. 
Examine the output and explain what is happening. If you don't know 
any trigonometry, do not let it disturb you. You can still write 
this program. Use 

* K = 3.14159/N 

I = .5*00S(K)/SIN(K) 
C = ,5/SIN(K) 

where I stands for the area of the inscribed circle and 
C stands for the area of the circumscribed circle. 

18. A tetrahedron (triangular pyramid) has four faces each of which is an 
equilateral triangle whose sides are each of length L. 

The surface area = 1.73205L 2 

The volume = 0.11785L 3 

At L = 1, the surface area is larger than the volume. 

At L - 20, the surface area is smaller than the volume. 

Find the value of L that makes the number of square units in the 

surface as nearly as possible equal to the number of cubic units in 

the volume. 

19. For what radius does a sphere have the same surface area (in square 
units) as volume (in cubic units)? 

Vol = |^ R 3 Surface = 4trR 2 

20. If (XI, Yl) and (X2,Y2) are the coordinates of two points, the dis- 
tance between the two points is given by the formula 

/(X1-X2) + (Y1-Y2) Write a program to accept the coor- 
dinates of two points and print out the dijstance between the points. 
Does the formula work if some of the values are negative? 
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22. CHALLENGE PROBLEM : A job pays you $1 for the first 8-hour day's 
work, $2 for the second day's work, $4 for the next day's work, $8 
for the next day's work, etc. , doubling your day's wages each day, 
if you continue to work without being tardy or absent. It starts 
over at $1 any day you are late or missing. 

Find how many days you will have to work, without a tardy or absence 
to earn a total of a million dollars. How much would you earn the 
next day, if you were still on time? 

You may write your own program if you prefer, or you may use the 
program h^lnw: 

10 PRINT "DAY#", "PAY ON THAT DAY", "TOTAL PAY THUS FAR" 

100 S - 

110 D = 1 

120 P - 1 

130 S - S+P 

140 PRINT D,P,S 

150 D = Df 1 

160 P = P+P 

xiy> uuxu J.O0 

After you run your program, modify it so that you can INPUT a value 
of T for the nunJser of minutes tardy in step 170 and then send the 
program to 130 if T = but to 120 otherwise. Use T = 480 if absent. 

170 INPUT T 

180 IF T = THEN 130 ELSE 120 

What effect does this have? 

23. CHALLENGE PROBLEM : It is easy to observe that the sum of the first 
four natural nunt>ers is 1+2+3+4 = 10 or that the sum of the first 
seven integers is 1+2+3+4+5+6+7 = 28. How many successive natural 
numbers beginning with 1 would you have to add together to reach 
or just exceed 1000? 

24. CHAIiTJENGE PRQBLKM : Bob drops a superball from a 4th floor window 
42 feet above the parking lot below. If on each bounce the ball 
ascends to half the height it fell on that bounce, how far will 
the ball travel (both up and down) when it hits the ground for the 
10th time? The 50th time? The 100th time? 
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LESSON ;?|te^p. 



ASS /s TBB^A0&& 







All right—it is now time to learn to do something you can f t find in 
a set of tables and can't do without a computer— at least not conveniently. 

Now, let's introduce a new instruction by reprograimiing a 'Table 
Maker" of Lesson 2. 



FOR. . .NEXT instruction. 'Pry the 



A very useful instruction is the 
following program on your computer. 

100 FOR K = 3 TO 10 

110 S = K*K 

120 PRINT K,S,K*S,S*S 

130 NEXT K 

140 PRINT "END OF TABLE" 

The FOR. . .NEXT instruction sets K - 3 and executes whatever in- 
structions lie between FOR and NEXT; then K is advanced to K = 4 and 
the instructions between FOR and NEXT are again executed; then simi- 
larly for K = 5,6,7,8,9,10. When K - 10, the instructions between FOR 
and NEXT are again executed with K = 10. After reaching 130 NEXT K 
with K - 10, the program continues to instruction 140. 

After you have run the above program, modify it to 

80 PRINT "TYPE BEGINNING VALUE, END VALUE"; 

90 INPUT B,E 

100 FOR K « B TO E 
110 S = K*K 
120 PRINT K,S,K*S,S*S 

130 NEXT K 

140 PRINT "END OF TABLE" 

150 PRINT 

160 GOOD 80 

RUN the program for several different values of B and E. Now we are 
ready to write a more sophisticated program. 
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Let's write a program to help us solve messy eq u ations . 

Notice that no one said tne program would solve equations. It 
won ; t. But it will do ail the hard work and messy arithmetic tor you. 
All you'll need to do is to tell it where to hunt for the roots, and it 
will do the hunting. Does that sound fair? Let's try it. If math- 
ematics bores you, just hang in there for now. We'll be doing computer 
assisted art in Lesson 4 but for now I want you to realize how easy it 
really is to do mathematics with the help of a computer. If you can do 
6th grade arithmetic, you can cb this. Keep on reading, please. 

It may not have occurred to you that computer programs have to be* 
"built." They do not spring full grown from the mind, "but develop 
slowly— and are modified as they develop— until a final program you 
would be willing to share with a colleague eventually results. One of 
the primary rules for good programs is 

aooaauoaaatn«iaat3aoat>aoBBaaaaat)Jaaaaoaaxioaaottt!, 

Make your program run first , 

then make it fancy. 

This is good advice. Let's use it. 

Our problem is to write a program to help solve the equation 
5X 3 + 3X 2 - 2X - 5 = 0. 

We shall first write a program that accepts a value of X as input, and 
displays the value of X along with the corresponding values of 

Y = 5X 3 + 3X 2 -2X-5. 

To solve the equation, we must make Y = (or as close as we can get). 

The following preliminary program seems to provide the required 
evaluation. 



21(9 PRINT "TY PE X- VA LUE PLEASE"; 1ENTEHI 
215 INPUT X IEKTER1 



240 Y « 5*X*X* X + 3*X *X - 2*X - 5 |ENTER| 

250 PRINT X,Y (ENTER! 

280 PRINT |EKTER| 

290 GOTO 210 



Don't forget to type LIST [EOTERi to 
check your program. 



Then type RUN gOTERj 
The program will print 

TOPE X-VALUE PLEASE ? 



If you type [ENIERi 

It will respond 



3 4 



Page 3-3 



TYPE X- VALUE PLEASE? 
If you type 1 1 ENTER I 
It will respond 
1 1 

TYPE X-VALUE PLEASE? 

The change of sign in Y from -5 to +1 shows, since Y is a continuous 
function, that there is a root somewhere between X = and X = 1 — 
possibly nearer X = 1. 

3 2 

If we were to graph Y = 5x + 3x - 2x - 5 we would know that for 



X 


P 


1 


Y 


-5 


1 



*x 



Our observation suggests that for some X-value between X = p and 
X - 1, the value of Y must be zero. It is this X- value that corresponds 
to Y = that we seek. Y 

Let's try 0.8 I ENTER I 
The computer responds 

.8 -2.12 

TYPE X-VALUE PLEASE? 

So we now know there is a root between ~ 
X = 0.8 and X « 1 (Why?) 



so we type 
and obtain 
.9 



0.9 



ENTER 



-.725 



so the sign change (and root) comes 
between X = .9 and X = 1 



We can now enter .95 
and if the corresponding 






-*X 



|(.9,-.725) 



Y is positive, follow this with .94 etc*. 
Between .944 and .945 we eventually obtain the root accurate to 5 
or 6 significant digits. Try a few values yourself. 



35 



Page 3-4 



We can devise an even better helper program to solve equations. 
Let's modify our program so it accepts two values B and S (for 
Beginning value and Step size) and then prints out 11 pairs of values 
of X and Y before looping back to get another pair of starting values. 

If you aren't sure why this will be a convenient change, just wait 
until you try the program given below. 

We shall use our new FOR NEXT instruction. It is really a 

pair of instructions 

FOB K-l TO 11 



NEST K 

The instruction FOR K-l 10 11 sets K-l and performs the instructions 
between FOR and NEXT (which may or may not involve K) . 

The NEXT K instruction then adds 1 to K (making Kf2) and again perforins 
the instructions between FOR and NEXT. Then 1 is again added to K, 
producing KK3, and the instructions between FOR and NEXT are executed 
again, and again, and again until finally K=ll. The instructions between 
K)H and NEXT are performed once more, but this time whatever instruc- 
tion directly follows the NEXT is executed. 

The wee program 

100 FOR K=l TO 20 
110 PRINT K,K*K 
120 NEXT K 

will produce a table of integral values of K and ¥T for K between 1 and 
20 inclusive. 

The following urogram produces rather different results in Level I and 

Level II BASIC. 

Try it on your computer. 

100 FOR K>=0 TO 20 STEP .5 
110 PRINT K,K*K 
120 NEXT K 

Qq Level I BASIC, it produces a table whose entries are 0s. This is 
because in Level I BASIC, STEP size must be an integer and STEP .5 is 
truncated to STEP 0. 

Level II produces a table of K, }T for K between and 20 with values 
changing by .5. 

Try it if you are unsure. The best way to learn about your computer is to 
compute. 
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Let us return to our first version of 

21(3 PRINT "TYPE X-VALUE PLEASE'*; 

215 INPUT X 

240 Y = 5*X*X*X + 3*X*X - 2*X - 5 

250 PRINT X,Y 

280 PRINT 

290 GOTO 210 

Let us combine some of the tricks we learned in Lesson 2 to produce 
a table of eleven values of X and Y « 5*X*X*X + 3*X*X - 2*X - 5 starting 
with X = B and increasing the X value by S on each line. 



210 
215 
220 
230 
240 
250 
260 
270 
280 
290 

LIST 



Second try: 

PRINT "PLEASE TYPE BEGINNING VALUE, STEP SIZE"; 

INPUT B,S 

X™B 

EOR K=l TO 11 

Y = 5*X*X*X + 3*X*X - 2*X - 5 

PRINT X,Y 

X=X+S 
NEXT K 
PRINT 
GOTO 210 



1 ENTER | and check your program. 
Then type HUN ' ' 



| ENTER 



The program will print 

PLEASE TYPE BEGINNING VALUE, 

and you type 0, 

The output will be: 

1 
2 
3 
4 
5 
6 
7 
8 
9 
¥ 



STEP SIZE? 
1 I ENTER I 




(Notz -6-cgn change..'. ] 
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Since there is a sign change between X = and X = 1, 
0, .1 I ENTER I which t>roduces 



you next type 



.1 
.2 
.3 
A 
.5 
.6 
.7 
.8 
.9 
1 



-5 

-5.165 
-5.24 
-5.195 
-5 

-4.625 
-4.(94 
-3,215 
-2.12 
- .724999 
1 «- 



— {Motn 6lgn change,'.} 



A sign change between .9 and 1.0 .indicates a root there, 
so you type .9, .01 [MIERi . 



Then later you type .94, .001 [ENTER I which shows a root between 
.944 and .945. 



,94 


- .j67628#6 




.941 


- .0593705 




,942 


- .0424247 




,943 


- .0254455 




944 


-8.43143E-03 




945 


8.61549E-03 +- 


(Mote. &ign 


946 


.0256987 


change,', ) 


947 


.0428152 




948 


.0599666 




949 


.0771518 




95 


.0943718 





3 2 
So now we know that the equation 5x +3x -2x-5=0 has a root between 

x =» . 944 and x = . 945. You can easily obtain 5 or 6 places of accuracy, 

if needed, but 3~place accuracy is frequently enough. 



+ 4x° + 2x 



9x - 100, you need only to change line 



To solve 7x 
240 to 

240 Y - 7*X*X*X*X + 4*X*X*X + 2*X*X - 9*X - 100 

Starting values 0, 1 (and also 0, -1) will each be helpful in solving 
this problem. 
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Computer experts will prefer to write line 240 as 

240 Y = (((7*X + 4)*X + 2)*X - 9)*X - 100 

which saves both typing and, more important, computing time, since it 
uses only four multiplications instead of 10, each time Y is evaluated. 
If you have had a course in algebra, please multiply out the expression 
to see that the same results are obtained. You can solve many different 
equations by changing line 240. 

3 2 

What about solving x - 4.9x +6. 6x -2. 6=0 by changing line 

240 to 

240 Y « ((X - 4.9)*X + 6,6)*X - 2.6 

Note that input B, S = 0, 1 produces three changes in sign. Find all 
three roots accurate to 4 or 5 significant digits. 

If you have Level II BASIC, you may wish to try Y 

240 Y = EXP(X)*C0S(X*X) - 2.6 

This program is really quite a valuable tool. It will help you to solve 
almost any continuous (e.g., no factor in the denominator that might 
be zqjvo ioK X inside the interval in which you axe. meeting a. root ) 
function set equal to zero. 

Polynomials come under this classification — even polynomials in sin(x), 

cos(x), e , as well as polynomials in X. So do many other functions, but 
not equations like 

3 „ _._.._„ __ 3 



e x cosx 2 - 2.6 



2x 







since y 



2x~ 1 



is discontinuous at x - 1/2 




*X 



Remember: to change the equation being solved, you only need to 
change instruction 240 to 

240 Y - (whatever continuous function you are trying to make zero). 
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CORRECTING ERRORS discovered at RUN time . 

You may have noticed that the TRS-80 will frequently detect errors 
in spelling or punctuation of instructions and will warn you of these 
errors by printing an ERROR message; consider the following erroneous 
program: 

100 POT K=l TO 10 
110 PRINT K,K*K 
120 NEXT K 

in which FOR is misspelled KjT in line 100. If you type 



RUN ENTER. 



the computer responds 

?SN ERBOR IN 100 
READY 

Tne first line tells you that there is an ERB3R in statement 100. 

We shall talk more about ERROR types later on - for now you can usually 

spot the error by looking at statement 100. 

For certain (but not all) errors, the computer will shift automatically 
into EDIT mode. This is indicated by displaying the line number where 
the ERROR has been detected just below the ERROR IN 100 message. 

If you depress the {h\ key (wit hout ENTER) , the entire line will be 
displayed, and the line number repeated 

100 KJV K«l TO 10 

100 



if you tap the i space barj the line will appear character by character 
xintil the underline marks where the ERROR is: 

100 ror k=i to 10 
100 ro_ 

Now depress [C] (which stands for change); nothing visible will happen, 
but if you now depress the desired character QO it will appear . If 
there are other errors, correct them too. Tnen depress iENfi'.brii 

' r ?P e k*ST tENIERl and you will find the correction was made. 

If you should need to delete a character depress [5] instead of LGj 
the deleted character will appear between ! ! symbols. To insert a 
character depress [T] instead of (cT) and then depress the desired 



40 



Page 3-9 



character. If you wish to change, delete or insert several characters 
depress the number key before depressing the [c] , [D] , [T] key. 
Thus [3] [Tj will enable you to insert 3 characters. This is only 
part of a set of powerful EDIT instructions available in Level II BASIC. 
We shall discuss them in Lesson 8 , but you may peek now if you wish. 

In many cases it is much simpler to merely retype the line, rather 
than using the EDIT instructions. In such a case if you type 



HUN lENTERj and get 

?SN ERROR IN 100 

READY 

W- 



Sinply depress lEHSTHEE 1 

This will display line 100, and dis play th e >_ which you must have 
to enter an instruction. Depresssing | ENTER] will display 

?SN ERROR IN 100 

READY 

100 EOT K=l TO 10 

>_ 

Then you merely retype the instruction 



>100 K)R KKL TO 10 [ENTERl 



The critical things to remember are: 

The computer indicates it is ready to accept data by displaying 
Do not type anything but data if you have a ? displayed. 

The computer indicates it is ready to accept an instruction by 

displaying >__ 

Do not type an instruction unless you have a >_ displayed. 



If in doubt depress [BREAK | followed by | ENTER [ to get 

READY 
> 
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SUMMARY OF liESSON 3 

We learned about the 

K)R K = 3 ID 10 

NEXT K 
aad 

K)R K = 10 20 STEP .5 



NEXT K 

instructions, aad used uieia to develop a powerful program that csn be 
used to help solve continuous equations. 

We also learned how to correct errors that are detected by the computer 
at RUN time. 

Perhaps the most important thing we learned in Lesson 3 is that mathe- 
matical problems are not inherently difficult. Even if mathematics 
troubled you in the past, with the able assistance of a microcomputer 
YOU CAN use plain old coxmon sense to solve problems that would cause 
a college mathematics major difficulty if he tried to solve them without 
a computer. 



42 



Page 3-11 



PRACTICE SET 3 

In problems 1 to 10 * use the second equation solver program to help 
you find solutions of the problems given below. 

1. x 5 4- 3x 4 + 2X 3 + Sx 2 + 3x - 25 - 

2. x 5 - 31 = 

3. 7x 4 + 6x 3 + lOx 2 - 5x- 1 «= 

4. 4x 3 - Sx 2 -29x - 13 = {Find tknzz kooU boJwzm -10 and 

+ 10.) 

5. x 4 - 3x 2 - 4 = 

6. a. x 4 - x 3 - 5x 2 - x - 6 = 
b. x 4 - x 3 - Sx 2 - x - 5 = 

7. 2x 4 + x 3 - 8x 2 - x + 6 « 

8. 6x 4 + 5x 3 - 14X 2 + x + 2 = 

9. 3x 3 + 4x 2 - 12x - 16 = 

10. 4x 4 - 13x 2 +3=0 

11. a. 2x 4 - x 3 - ISx 2 + 6x + 17 - 

b. 2k 5 - x 4 - 6x 3 + 3X 2 + 4x - 2 = 

12. Change the constant terms in some of the above equations and try again. 

13. If you have a Level II BASIC, try some trigonometric equations like 

X*SIN(X) -2 = 

X*EXP(X)*COS(X) + X*X - 4.5 - 

The fascinating thing is you don't really need to understand trigonometry 
to solve the given (rather carefully selected) equations. 

14. Forecast the output of the following program, then HUN it to check 
your forecast. 

100 BOR X=l TO 10 STEP .2 Be AuA& to think abouut tohzMieA. 

11(5 PRINT X,X*X, X*X*X youA compute ncu> Uvel I BASIC 

120 NEXT X OK Uvol II BASIC. 
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15. Use the program 

90 INPTJT "PLEASE TYPE BEGINNING VALUE, END VALUE, STEP SIZE^B^S 

100 K)R X « B TO E STEP S 

105 Y=X*X 

110 PRINT X,Y,X*Y,Y*Y 

120 NEXT X 

130 PRINT 

140 GOTO 90 

16. The following program is supposed to accept a positive integer value 
N and prJuut out the values of N and N* — 1*2*3*... *N. 

It seems to work the first time through, but then prints out non- 
sense values for N! Try it and see. Then debug and repair the pro- 

100 PRINT "N", "^-FACTORIAL" 
110 PRINT 
120 F=l 

150 INPUT "TYPE INTEGER WHOSE FACTORIAL YCXJ WISH" ; N 
155 IF N<0 THEN 150 

160 IF N^3 PRINT N, F TkeAt tZMt the. input data. . . 

170 IF NoIInT(N) THEM 150 MOTE: IA/T(N) ploducU tkt Intzgvt 

200 FOB K= 1TON poKtAm o{ N, 40 

210 F - F*K 170 IF M o IWT(W) THEN 150 

220 NEXT K took* at hi and i.{ H am not an 

250 PRINT N, F iwt&avi, the. pswg/tam qozM back to 

260 GOTO 150 750. SimitaAly, li W am negative,, 

Instmctlon 155 IF N < TtfEW 150 
6zndt> thz prwQKam back to ZnA&uic- 
tlon 150. 

17. The following program is supposed to accept two integers N, D and 
determine whether or not D is a factor of N. Does it work? If so, 
why? If not, fix it. The heart of the program is lines 130, 140. 

100 INPUT "TYPE IN TWO POSITIVE JAEGERS"; N, D 

110 IF N<D THEN 500 

120 IF N=D THEN 600 

130 Q=INT(N/D) 

140 IF D*Q <> N THEN 400 

2^0 REM PROGRAM COMES HERE ONLY IF D IS A FACTOR OF N 

210 PRINT D; "IS A FACTOR OF';N 

220 PRINT 

230 GOTO 100 

400 HEM PROGRAM OOMES HEBE ONLY IF D IS NOT A FACTOR OF N 

410 PRINT D; "IS NCfT A FACTOR OF " ; N 

420 PRINT 

430 GOTO 100 

f<^ont livned on nc^cfc dsi**?') 
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17. (continued) 

500 PRINT N; ,f =N IS SMALLER THAN B= !, ;D; "HENCE D CAN'T BE A FACTOR OF N" 

510 X=N 

520 N=D 

530 D=X 

540 GOTO 130 

600 PRINT "THE VALUES BOTH EQUAL"; N, "HENCE EACH DIVIDES THE OTHER" 
610 PRINT 
620 GOTO 1(90 

18. In Lesson 2 you wrote programs to change tenperature In Fahrenheit to 
temperature in Celsius and vice versa. Combine the ideas of your two 
programs into a single program that accepts B, S, E as Beginning 
value, Step size, and Sid value for T and then writes out two sets of 
tables side by side (four columns) using 

PRINT T;C,T;F < [Hotz U6£ otf ; , ; hi output hvm. } 

where T runs from B to E in steps of S and where 

C = (the Celsius temperature corresponding to T degrees in Fahrenheit) 

F - (the Fahrenheit temperature corresponding to T degrees Celsius) 

19. Write a program to INPUT the hourly rate, R, and the number of hours, H, 
worked in a given week and print out the errployee's gross wages 

for that week, assuming (s)he is paid time and a half for all time 

over forty hours in a given week. 

The output statement might be: 

PRINT "$";W;"FOR";H;"IDURS AT BASIC HOURLY RATE OF r ;R - 

but you'll have to scratch your head a bit to compute the total for W, 

including the overtime payments, if any. Don't make the error of 

subtracting ten hours of "undertime" for an employee who only works 

30 hours. It does not work that way, 

20. Write X - 7X + 5)T + 3X + 71 as a series of nested parentheses. 

21. Express (((3*X - 7)*X +5)*X +2)*X + 13 in a form without parentheses. 

22. CHALLENGE PROBLEM : The sequence 1,1,2,3,5,8,13,21, .. .is created by 
writing 1,1 and then each succeeding term is the sum of the preceed- 
ing two terms, 1+1=2, 1+2=3, 2+3=5, etc. 

Write a program to compute the first 100 or so terms of this 
"Fibonnacci sequence. M 

23 - CHALLENGE PROBLEM : Solve X 2 - cos X = 

24, CHALLENGE PROBLEM : 4x 8 - 2x 7 + x 6 - 3x 4 + x -x + 1 = 

presents an interesting puzzle for the mathematically-oriented, 
reader. 
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25. CHALLENGE PROBLEM : A dog is chasing a rabbit. The rabbit takes 
three jumps in the same length of time the dog takes two jtimps, but 
sacn rsjjuit jump covers ou±y c±cu.±. ox the distance of a uog jump. 
The rabbit was 13 rabbit jumps ahead of the dog when the dog first 
spotted the rabbit and started after it. If both go in a straight 
line, how many more jumps will the rabbit take before the dog 
catches it? 

26. CHALTKNGE PROBLEM : How much must you invest now in an account pay- 
ing 9% interest compounded quarterly to have $100, OCX) when you are 
70 years old? (If you don't want to give your age away, figure it 
out for S. Marguerite who is 22 years old.) 

27. CHALLENGE PBQHLEM : Legend states that in 1626 Manhatten Island was 
purchased from the Indians for $24. If that $24 had been invested 
at 12% .interest (a nndest interest rate at that time) what would the 
$24 be worth today? 

(How does this compare with the value of the land in Manhattan 
Island today?) 

28. Here are two small " research" problems for you. 

CHALLENGE PROBLEM : The four-digit number 9801 has the unusual 
property that if you take the two-digit number formed by the first 
two digits, 98, and add it to the number represented by the last 

two digits, 01, then 98 + 01 = 99 and (99) 2 * 9801. Find all four- 
digit numbers that have this property. 

29 .a) CHALLENGE PROBLEM : A 4 by 4 rectangle (square) has the unusual 
property that its perimeter (distance around it) is the same as its 
area (both are 16) . Your problem is to find another rectangle that 
also has the property that its length and width are both integers 
and its perimeter (2*(L+W)) is equal to its area (L*W). 

b) CHALLENGE PBORLEM : If you like mathematical thinking, see if you 
can prove that the two rectangles you found above are the only two 
such rectangles that exist. 

30. CHALLENGE! PROBLEM : The song "Twelve Days of Christmas'' mentions 
various gifts that "my true love gave to me." Let's interpret the 
song so that "on the third day of Christmas, my true love gave to me 
three French hens, two turtle doves and a partridge in a pear tree." 
Sfy true love gave me six presents (3 French hens, 2 turtle doves, and 
a partridge, if we cbn't count the pear tree as a gift). How many 
gifts in total did my true love give to me during the "twelve days of 
Christmas? Write a program to determine the sum. 

Answer: 364, if you do not count the pear tree as a gift. 
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ART & GRAPHICS 



Computers are fun. They make great adult toys. As my daughter says, 
"The main difference between men and boys is the price of their toys.' 1 
Well, a modern computer costs less than many adult toys — a Jaguar XKE, 
a sailboat, a motor boat, a golf cart or even a set of clubs can cost 
more than a computer. Of course, the computer is a very useful device 
(but so is an XKE) so let's just look at how to have fun with it. 

If you are curious, you may have doped out bow the little surprise 
program of Problem 8, Lesson 1, worked. Let's look at it. 



(Remember to dowu* 1 EHTER 1 at ttie. end oi eac/t tint. 



Level II BASIC 



Level I BASIC 



NEW I ENTER .1 

3^3 PRINT @ RNDIX000)-. "HI SUZANNE" 

IS IF RND(0) < .05 THEN CLS 

£0 GOTO 10 

RUN 



NEW ENTER! 

10 PRINT AT RNlXlAWl/'HI SUZANNE" 

IS IP RND(0)<.05 THEN CLS 

20 GOTO Xfl 

RUN 



Line 1(3 contains two new ideas. One of these is the idea of a random 
number generator. TBS-80 contains two types of random number generators: 

One is called RND(0). HND(0) produces a random decimal number between 
<P and 1. 

The other is BND(n), where n is a positive integer. RND(n) produces 
a random integer between 1 and n inclusive. 

To see how they work, use the programs on the following page. 
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mm PRINT RMDCp): 

ipia goto laiaa" 



RUN 1(200 I ENTER | 

After you have a screen full of that, try 



1(2(30 PRINT RND(IPP); 
1(21(3 GOTO l i(3 
RUN 1(30(3 1 ENTER 1 



to 



Later, change instruction 

IP* print RNDC30); , ^^ ^^ ^ iMtmvtion 1010 GOTO 1000.) 

and type RON 1000 [ENTERJ again. 

Each time you call HND( w) a random number is produced that is differ- 
ent from the random number produced last time, even though the same n 

xiD J.ii uocr pax cujl uxjl-cck^o . 

The second new idea in the instruction 
1(3 PRINT @ RNDC1000), "HI SUZANNE" 
is the PRINT AT , " " instruction. 



For purposes of the PRINT AT , " M the screen is divided 

into 1024 cells, sixteen rows of 64 elements each. Each cell exactly 
fits one letter plus the space between rows for that letter. The cells 
are numbered from to 63 in the first row, 64 to 127 in the second 
row, etc. (See illustration on the following page.) 



&to&j 



.Si: 




iZI&mJ 



f Tku uA(U> RUN 1000 \EUTER\ in placz oi RUW 1 EATTER 1 to make th<L 
compivtejt 6klp any pvoqiwm In 10, 1$, 20.«. f 999, and htnxt RUhiyvtng at 



104$ 



?rr f -f-p.tnb 
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T ry the program 



ipps as 

]#10 PRINT @ N, "* HARKS LOCATION"; N; 
IP2P GOTO Xpp 
RUN ]0ffl 

Ibe instruction 



(Uie AT £n p£ace ojj <i on 
Leve£ I BASIC.) 



/AT\ ... . iAT In Uvzl I BASIC. 

PRINT \@; i "°* <j ^ i n uvei n BASIC. 

will start printing at location n and print whatever is called for. It 
prints any symbols it finds inside of quotes as symbols and the values 
of any variables it finds outside of quotes, providing the proper cooinas 
and/or semicolons are included. 

For example, instruction 1$ of the program in Problem 8 of lesson 1 
Ip PRINT l®} HND(IW), "HI SUZANNE" 

combines these two instructions. HND(10W>> generates a random integer 
between 1 and 1000. 



PRINT (Jh RND(IJW), "HI SUZANNE" 



then prints whatever is in the quotes, starting at whatever random loca- 
tion RND(IW) generated. The next time, a different random integer is 
generated. The result is the statement in quotes is flashed all over the 
screen. 



5® 



4-5 



If you wish a snow storm, try ( 



/; 



NEW ENTER 



ypffl print k?) RNWiuapi), 

102(3 GOTO 



To keep #te 4c/teen tfA,om AcsuoZLLng 
u6e ; at #ie end o& &tne 7000. 



To occasionally wipe the screen clear, add 
10143 IF RND(0)<.01 THEN CLS 

The instruction RND(0) generates a random decimal number between and 
1 If the random number generated is less than .{31 (which it will be 
about once in 100 numbers on the average), the "clear screen" instruction 
OS is executed. Otherwise, CLS is ignored. In either case, the in- 
struction 1020 GOTO IP is executed next. 

Here are some interesting programs. Try them on your TBS-80. 

NEW [ENTER] 

S CLS 

10 FOR L - TO %0 STEP b4 

IS FOR K » 1 TO bl 

5(3 PRINT @ K + L, "HI youA name" 

35 NEXT K 

33 NEXT L 

M0 GOTO 1(3 

After you try that with several different names, change instruction 16 to 
IS FOR K » b2 TO S STEP~1 

and RUN it again. 

Here is another FUN program. Please try it, then analyze what happens 
and why. The CHR$( ) instruction, discussed later in this lesson, dis- 
plays the character corresponding to the value in the parenthesis. 

/NEW I ENTER 1 

: 110 N-l 

! 320 PRBIT @ T70, " MOBILE ART FORfl * "; N ; 

■ 130 FOR K - 12^ TO Ml 

m|| PRINT @ RNlXWD.CHRSflO ; 

19 NEXT K 

]fe|a N - N+1 

170 FOR (3 - TO RND(N) : NEXT (2 

lfifl IF N < 50 THEN 320 ELSE 100 
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Ycmr TRS-80 has much finer graphic capabilities than we have been 



</< 



-; ^ "DPTNT I 



Ar»-Hio1 Itr aanh 1 ot-t-oT*— 



sized cell is broken tip Into six smaller rectangular cells, or pixels, 
counting the space between lines, and each cell is individually address- 
able. The system ox nunbering from to ljD23 is too coarse for this use. 
The individual spots are addressed by giving an X, and Y-coordinate with 
<fi <; X 5 127 and (9 £ Y s 47. The (0,0) point is in the upper left edge 
of the screen. X increases to the right. Y increases downward. 
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So, (3£i f 17) is 30 spaces to the right and 17 spaces down from (0, 
'shown above. 
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Try 



INPUT ,f X,Y= n ; X,Y 
WW SET(X,Y) 
102(3 GOTO 1000 
RUN 

There are three instructions used with these spots : 

SET(S.Y) This lights point (X,Y). 

RESET (X,Y) This darkens point (X,Y). 

POD*T(X,Y) This is used to determine whether or not point(X,Y) is 

lighted. If lighted, it returns "logical yes", otherwise, 
"logical no", as used in an IF. . . .THEN instruction. 



100 CLS 

U# FOR K = TO 4? 

XSjZi SET(K,K) : SET(K+faja,K) 

330 NEXT < 

RUN 



After you have RUN the above program, and understand why it produces 
two wiggly diagonal lines, try adding 
125 SET(120-K;,K) : SET(6#-K,K) 

Before you run the new program 



IIP FOR K - (3 TO 47 

T29 SET(K,K) : SET(K+b(3,K) 

125 SET(12P-<,K) : SET(k(3-K,K) 

13? NEXT K 



see if you can fore cast th e pattern that will be produced. Then (and only 
then) type RON I ENTER] to check your forecast. This is one of the 
best ways to learn about computers. 

IP POIOT(X,Y) THEN KESET(X,Y) will test (X,Y) and turn it off, if it is 
on. Bswever, RESET(X,Y) also turns off point (X,Y) and takes less time. 

Later, you will find uses for POINT(X,Y) in programs in which you will 
need to test whether or not a given pixel is lighted. 

The following program will help you become familiar with the loca- 
tion of the various (X,Y) rectangles (pixels). It lights a rectangle 
chosen at random, and then permits you to input your estimate of the co- 
ordinates (X,Y) of that rectangle. If you miss, a rectangle will blink 
at the coordinates you chose to show you its location with respect to 
the unblinking target. You may then input another guess. 

S3 
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^ . 

nm r - ib + rndobh 
| lip c * 2$ + rnd(M3) 
]2p as 

I 130 SET(C,R) 

j 1M0 INPUT "PLEASE TYPE YOUR ESTIMATE OF (X,Y) AS X,Y ="; X,Y 

; 150 IF(X<) AND (Y-R) THEN 400 

! E00 FOR K=l TO 200 

; ai(3 srr(x,Y) 

i 350 RESET(X.Y) 
i E30 NEXT K 
EM0 GOTO 120 

40p) REM HERE IF ESTIMATE IS CORRECT, 

410 PRINT @ 70, "YOU ARE CORRECT. CONGRATULATIONS. " 

4E0 FOR (2-1 TO 600 : NEXT (3 

4?3 FOR (2=1 TO S0 : PRINT @ RNDU000), "YOU WIN" : NEXT (2 : CLS 

440 PRINT <§ 15fi, "HERE IS ANOTHER POINT FOR YOU" 

450 FOR (2=1 TO 500 : NEXT a 



It is a game. . .put it cm your computer and play it. This is guaranteed 
to improve your visualization of what is where on the pixel screen. 



Here is another possibly useful technique. 

Let us use our knowledge of graphics to create a bar graph or histo- 
gram for the nmfcer of students attending the Tfaxversity of Oklahoma. 
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• 100 CLS 

110 PRINT @ b, "GRAPH Of ENROLLMENTS AT THE UNIVERSITY OF OKLAHOMA" 
120 REM LABEL THE LINES FOR THE BAR GRAPHS 

130 print @ iaa, "nMfl" 

1M0 PRINT @ VE, "113$" 

150 PRINT @ 25L, n l%0 lf 

VS PRINT @ 320, 'W 

170 PRINT @ 3flM, "IW 



DRAWS THE ACTUAL GRAPHS 
SET(X,7) 



500 REM 

220 FOR X=12 TO 42 
230 SET(X,b) 
: 2M0 NEXT X 

320 FOR X*ia TO 5t 

330 SETCX,^) : S£T(X,10) 

3M0 NEXT X 

M20 FOR X-12 TO UH 
■ ^ SET(X,12) : SET(X,13) 
MM0 NEXT X 

S20 FOR X-12 TO 102 
|530 SET(X,1S) : SET(X.lb) 
J 5M0 NEXT X 

; ; ^20 FOR X-12 TO 124 

L30 SET(X,ia) : SET(X,li) 
i J L40 NEXT X 

A shorter and more powerful graph generator can be written using 
instructions we have not yet studied (see Lesson 13). In this version, the 
years and the values to be plotted are stored in DATA statements and enter- 
ed into the computer using a READ instruction. 



5 CLEAR 200 
10 OS 
100 PRINT @ 6, 
110 READ Y, D 
115 IF Y < 1HEN 115 
120 DATA 1940, 21, 1950, 28, 1960, 32 
130 PRINT Y; STRINGS (D, 143) 
140 GOTO 110 



GRAPH OF ENHDUJMENTS AT THE UNIVERSITY OF OKLAHOMA ' 



1970, 51, 1980, 62, -1, -1 



However, it is better to learn to walk steadily before one tries to run or 
to fly — We invite you to use the above program either with the given data 
or by changing instructions 100 and 120 to produce another histogram of 
more interest to you. The end of your data should be indicated by -1,-1 
as above. If the data values for D lie between 1 and 59, the program will 
graph the data on a single line; otherwise more than one output line may 
be required in which case you may wish to insert 135 PRINT in the above 
program. Experiment a bit. 
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Try the small-f lake snowstorm prograns below. 



/^ 



100 SET(RND(I27), RN]>(47)) 
,110 IF RN&(0)<.001 THEN CLS 
! lap GOTO 100 



r 



i n0 CLS 

100 X-RNI>(127) 

.IIP FOR Y-l TO H3 + RND(3) 

120 RESET(X,Y) : SET(X,Y+1) 

1^3 NEXT Y 
I 1M0 GOTO 100 



Here is another interesting program. The students claim it is a 
"eaiipus planning prograjLii r . 



r 



S0 N-l 

60 as 

100 PRINT " CAMPUS PLANNING PROGRAM 
1*10 FOR K=l TO 3+RN3>(17) 



200 SX=RND(70) 

20S SY=3+RN»(23) 

210 L=RND(S5) 

215 W«RND(20) ,- 

220 FOR X=SX TO SX+L 

225 SET(X,SY) : SET(X,SY+U) 

2^3 NEXT X 1& you'd tikz to kavo. yovJi N-S 

23S FOR Y=SY TO SY+tiJ wallb the. t>amz wldXh cu> the, 

2H0 SET(SX,Y) : SET(SX+L,Y) E-W mUA , add: 

2 ij5 NEXT v 943 SFTISX+1 ,V) :$ET[SX+L+1 ,V) 

250 FOR <2<L TO 100+RND(3PJ3) : NEXT (2 

pec MrvT sf 

2M3 FOR 0=1 TO &W : NEXT a *< ,^ u w<w*a&mgeA &>ofc at a ipca- 

270 GOTO ap [W^ QJ to haU thz pjogAfflju^ 

( «-'!f »p -p^ dtptLMA any k&tj, w-ctho tut \ SHIFT] 

to aon&lmjuL. 
Note instruction 280 K)E Q = 1 10 8p0 : NE3£F Q. This forces the 
program to count to 800 before it goes to instruction 80 and clears the 
screen. Separate instructions are separated by colons in lines 225, 240 
250 and 260. 



"toe following program contains several instructions we have not 
discussed vet. If you are particularly interested in learning about them, 
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consult Lessons 12 and 14. However, you can use the programs with- 
out having to understand L£M(Z$) or MID$(Z$,K,1). 



'100 CLS 

1143 Z$* "YOU HAVE ALREADY LEARNED LOTS-, BUT STILL HAVE OTHER GOODIES 
TO INVESTIGATE, T00. n 

13(3 E=INT((LEN(ZS)+l)/2) 

1M0 FOR A=0 TO E STEP -5 

150 X=15*SIN(A) 

lb0 K=K+1 

170 PRINT TAB(X+30) ; riID$(Z$,K,l) 

160 FOR (3-1 TO 50 : NEXT (2 

1^0 NEXT A 

200 FOR (2-1 TO 300 : NEXT (2 

210 GOTO 100 



Run the program. Then, change line 110 to 
11Q Z* = " 



where you type any message you wish between the quotes. 
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let us write a program to create a rectangle on the video screen. 
Select as vertices the following points: 

A(25,lp) B(45,ip) 

C(25,3jB) D(45,3jZ>) 

We might believe that the result will foe a square, since the dis- 
tances AB,ED,DC,CA each appear to be twenty units in length, i.e. 

X— distances are eacii 45-25^20 units 
Y-distances are each 30-10=20 units. 

However, this is not valid. Let us write the program and then examine 
the output. 



/ 10 CLS 

i IflP REF1 DRAW ONE PROn (25,10) TO (MS, 10) 

; 110 Y«343 

, 120 FOR X=2S TO 45 

130 SET(X,Y) 
140 NEXT X 

200 REM DRAW LINE FROfi (25,3(3) TO (MS, 30) 

2349 Y-3J3 

220 FOR X-25 TO MS 

230 SET(X,Y) 

2M0 NEXT X 

330 REM DRAW LINE FROfl (25,10) TO (25,30) 

310 X-25 

320 FOR Y=3,0 TO 30 

330 SET(X,Y) 

340 NEXT Y 



4pp REM 
- 410 X=45 
' 420 FOR Y-10 TO ^8 

4^ SET(X,Y) 
: 440 NEXT Y 

OTI the above program. 



DRAiii LXNt. rrcOfi (45,2$) TO (45,30) 



OUXFOT 
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The rectangle was not a square. Indeed, it is about twice as tall 
as it is wide, since the "spots" (pixels) located at (X,Y) are actually 
rectangles (as you can see by typing SET(100,30) (JEM]). In other 
words, the X-direction units are only half as large as the Y-direction 
units. 

To obtain a better approximation of a square, you could change each 
of the 45 ! s to 65's (in instructions 12$, 220 and 410). Change the steps 
as suggested and RUN the program again. It still isn't a perfect 
square, but it is much inproved. What about lines 100, 200, and 400? 

It is possible to make the lines of this square of equal weight by 
changing instructions 330 and 430 to 

330 SET(X,Y) : SET(X~1,Y) 
H30 SET(X,Y) : SET(X+1,Y) 

Try these alterations and see how the new program behaves. 

It still does not produce a perfect square. . .perhaps because the 
rectangular "pixels" are really not exactly twice as high as they are 
wide. 



depress [BREAK! and i CLEAR! and type 
LIST lEMml 

This will display your current program which should be: 

Zip as "~~ " 

1(3(3 RE?1 DRAU LINE FROil (25, 10) TO (bS,10) 

110 Y=10 

120 FOR X=25 TO LS 

130 SET(X,Y) 

1M0 NEXT X 

200 REM DRAW LINE FROM (25,30) TO (LS,30) 

210 Y=*30 

220 FOR X=25 TO b5 

230 SET(X,Y) 

2M0 NEXT X 

300 REn DRAW LINE FROM (25,10) TO (25,30) 

310 X=2S 

320 FOR Y-10 TO 30 

330 SET(X,Y) : SET(X-l.Y) 

340 NEXT Y 

1400 REM DRAW LINE FROrt (bS,3fl) TO (bS,30) 

M10 X=US 

H20 FOR Y»1P TO 30 

M30 SET(X,Y) : SET(X+1,Y) 

W0 NEXT Y 
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Your task is to adjust the width of the rectangle to produce the 
best souare v ou can. Iticreasln 0, the 65 's in Instructions 12$ 22^ and 
410 slightly (say, to 75) may be all that is needed. Play with it a bit 
yourself . 



Actually, the program can be shortened considerably by drawing the 
two parallel lines in the same FOB NEXT loop, as illustrated below. 



/; 



■ / MEU 

10 as 

100 FOR X=2M TO 73 

110 SET(X,10) : SET(X,30) 

120 NEXT X 

500 FOR Y=ll TO 2 C I 
210 SET(2M,Y) : SET(2S,Y) 
220 SET(?2,Y) : 5ET(?3,Y) 
230 NEXT Y 

250 PRINT @ *tyS, "SfiUARE" ; 
i 300 GOTO 300 

Instruction 250 prints the word SQUARE in the drawn square. The 
; at the end of instruction 250 prevents that instruction from clearing 
the following line and thus disrupting your square. 

Instruction 

300 GOTO 300 

puts theprogram in a "tightloop" that prevents the TRS-80 from displaying 



i'/readsT 



which could disrupt t he disp lay. To get the computer out of this tight- 
loop, depress the (BHEAKj key. 
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CHE$( ) 



Each screen character or action (including scroll, backspace, car- 
riage return, and convert to double-size letters) has a numeric code 
that corresponds to it. 

In Level II BASIC (but not in Level I) it is possible to use the 
instruction CHH$(n) (where n is an integer or a variable that has value 
between and 255) to obtain the screen character or action correspond- 
ing to the number n. 



1P(3 INPUT K 

1143 PRINT K; 

1^3 PRINT CHR*(K) 

E0!3 GOTO ipj3 



will permit you to test this out. 

Use the following input values, among others, to obtain a variety 
of symbols: 

33, 36, 42, 60, 88, 91, 92, 109, 134, 148, 191 

The following program will print the character number along with a 
row of that particular character. This may be useful as a border on a 
graphic display. 

^1(3 CLS 

% PRINT "PLEASE TYPE NUflBERS BETWEEN 33 AN]) ]fll" 
1J30 INPUT K 
11(3 PRINT K, 
12(3 FOR L-l TO MS 
13(3 PRINT CHR$(K); 
14(3 NEXT L 
15(3 PRINT 
2(30 GOTO 1(3(3 

Try 33, 36, 38, 42, 47, 6fi, 62, 72, 88, 91, 92, 109, 125, 126, 134, 135, 
141, 148, 152, 187 and 191 to obtain a variety. 

lb see the entire array of useful display symbols, change instruction 1(90 
and add instruction 170 as suggested below: 

1(3(3 FOR K=33 TO 111 
170 NEXT K 

After you have run the program a few cycles, you may wish to permit 
& to range from to 255 in instruction 100. But the effect of CHR$( ) 
values outside of the range 33 to 191 is harder to visualize from the 
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program. For example: CHR$(8) backspaces and erases character. 
The effect of CHRSCW) for several W-values is given below: 



W- value 


Effect or Character Printed 


8 


Backspaces and erases one character 


10-13 


Linefeed / Carriage Return 


14 


Turns on Cursor 


•i C 

JULj 


m _JO.£S J~L 


23 


Converts to double-size letters 



24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 



a?i4«r TO s»o& io»% 




TivU 16 handy In youA pJwgstamAl 
JuAt LndLudz 

10 & PRINT CHR$123) 

and youA output wAJUL 6e double,- 
6izzd until, #ie next CLS. 



Backspace Cursor ( -*- ) 

Advance Cursor ( -+- ) 

Downward Cursor (Linefeed or +) 

Upward Cursor (Linefeed or t) 

"HOME", Beturns Cursor to (0,0) position 

Moves Cursor to beginning of Current Line 

Erase to End of Line 

Clear to End of Frame 

Space 



62 



Page 4-17 



W- value 


Effect or Character 


W~value Effect or Character 


38 


& 


95 (Underscore ) 


39 
40 

41 


/ 
( 
) 


96-127 Lowercase a-z 

(but TRS-80 does not dis- 
play lowercase) 
128 Space 


42 
43 


* 


129-191 Various corrtoinations of 
Rectangles for fast SET() 


44 


a 


192-255 Tabs for to 63 spaces 


45 


- 




46 


• 




47 


/ 




43 







49 


1 




50 


2 




51 


3 




52 


4 




53 


5 




54 


6 




55 


7 




56 


8 




57 


9 




58 






59 


s 




60 


< 




61 


^ 




62 


> 




63 


? 




64 


(? 




65-90 


A - Z 




91 


t 




92 


+ 




93 


«- 




94 


+ 
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GRAPHING FUNCTIONS 




Y££ I CAM 

C(?HPfT£ 

2.0-tZ0$\Ar(x) 

4f^S? £VXMAlAJt& 

THIS G>RAPN^ 



this chapter is entirely friv- 
olous, let's write a program 
to graph the function 

t/« 20+20 sinx for 0<x<;3.2 

(radians, of course). If 

you don't know what that 

means, don't let it bother 

you. The point is that the 

conputer knows what it means. 

If you just realize that for each value of x between and 3.2 that you 

think of, the computer will supply you with a corresponding value of 

y = 20+20 sinx, that's all you need to know. It doesn't really make any 

difference that sinx is frequently used in trigonometry and you don't 

know any trigonometry. . .just hang on and have faith. 

Let's write a short program to see that the computer really can supply the 
desired value. 



Level II BASIC 



IP PRINT "X", "Y" 
100 FOR X=0 TO 3-S STEP 0.1 
11(3 Y*€0+20*SIN(X) 
12(5 PRINT X,Y 
130 NEXT X 
RUN 



Your conputer should produce: 



.1 

-a 

.3 
-S 



21. Tib? 
23. TOM 
25.11(314 
27.7884 
2=1.5865 
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Now, what we want to do is to graph this function instead of making a 
table of values. 

Recall that the X,Y coordinates on the screen are (0,0) at the top left 
and Y increases downward . This is inverted from the usual graph. 





We shall create a new variable Yl = 40 - Y so that 

Y Yl 

40 

20 20 

40 

Ibis will invert our graph. (Think about that a bit if it bothers you.) 

We'll also introduce a new variable XI = 10*X to spread the function out 
on the screen. The program 

' 11)3(9 FOR X«U TO 15.S STEP (3-1 
i !]2|3 Y-apH-20*SIN(X) 

130 X1=10*X 

1M0 Y>M0~Y 

150 SET(X1,Y1) 

1M9 NEXT X 

170 GOTO 170 

will produce an acceptable graph of the function 
j/ = 20 + 20 * SIN(x) 
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The last instruction 17$ GOTO 17(9 is inserted to keep the TRS-80 
from displaying 

READY 
> 

which woul d spoil the graph. To get out of this "tight loop", 
depress jBKEAKl . 

Later, you can learn to make even fancier graphs that show the axes 
and units as well ctS the Miifctpe, but here we only introduce the basic idea.. 

The following program displays a series of interesting graphs. 

•-* — ' ■ — -.-. 

f( 



lpp as 

IIP A-l+RNIXS ) 

iep b=i+rnd(s ) 

13(2 C=1+RND(5 ) 
1M0 PRINT A,B,C 

"» r*ri cao \* „r» ta i-i -t r»T»t-i-> ■» 
Jiayi ! Vl\ A—JU IV JjC • f ^ I C|- • il 

lbP Y=aS-S*(SIN(A*X) - SIN(B*X) + C0S(C*X)) 

17p SET(10*X,Y) 

175 FOR (3=1 TO 5P : NEXT (3 

150 NEXT X 

IIP FOR fl = 1 TO S00 : NEXT (2 

app GOTO 100 



fc 



10 REM ANOTHER "RAN&Ofl ART" PROGRAM 

10 CLS 

IS FOR L-l TO 30 
100 FOR K«ja TO IS 
10S P=K*k4 + RND(tiM) "1 

110 PRINT® P, CHR$(12a+RN3>(b3)); 

120 NEXT K 
135 NEXT L 

130 FOR (3-1 TO 100 ; NEXT (3 
140 GOTO 10 

After you have RIM the program a few times, add 
115 PRINT @ BND( 1^23), CHHS(12S+BNDC6.3)); 
and HJN it again. 
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A ninth-grade student, Anthony Tipton, from Millwood High School, 
Oklahoma City, Oklahoma, produced the following rather interesting pro- 
gram after reading a preliminary version of this chapter. 

/* " .. _ ~~T" 

(% REM ANTHONY D- TIPTON 
5 REfl 1717 NE SDTH 
7 REM 0KC,0K 73111 
1 REM M57-5137 
^ CLS 

100 FOR Z=l TO 3 : CLS 
1431 FOR X=0 TO 157 

105 y=23 

103 SET(X,Y) 

104 NEXT X 

105 FOR Y=0 TO M7 
10b X-b3 
107 SET(X,Y) 
10fl NEXT Y 

1?0 FOR X= -t.2 TO b-a STEP -05 

175 ON Z GOSUB 300, M00, 500 

160 Y= -Y 

Vty X1=X*10 : Y1=Y*5 

200 A»Xl+b3 : B=Yl+23 

205 IF B<0 THEN 220 

20fc> IF B>M7 THEN 220 

207 IF A>127 THEN 220 

20fi IF A<0 THEN 220 

2342 SET(A,B) 

220 NEXT X 
230 NEXT Z 
250 GOTO *n 

300 Y-SIN(X) 

301 PRINT @ S%, "SINE"; 

302 RETURN 

M00 Y=TAN(X) 

401 PRINT @ fl%, "TANGENT"; 

402 RETURN 

500 Y=X*X -4 

501 PRINT @ fl%, "PARABOLA"; 

502 RETURN 



Sophisticated readers will see ways to speed up the program. However, it 
serves rattier nicely at its current speed as a classroom demonstration 
illustrating how flat the sine curve is at max and min points, and how 
nearly linear where it crosses the x-axis, allowing for instructor com- 
ment on each curve. 
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SUMMABY OF LESSON 4 



Let *s see what you have learned thus far. . , 



RND(0) Produces a random decimal value between and 1, not includ- 
ing enc&oints. 

RND(n) Produces a random integer between 1 and n, including end- 
points . 



PRINT @ 96(3, "NEXT VALUE IS"; N 



Prints at the bottom of the screen 
(location 960). 



^^ ^00 1 ENTER | Begins running a program at statement 1400. 

SET(X,Y) Turns on rectangle at point (X,Y). 

RESET(X,Y) Turns off rectangle at point (X,Y). 

P0INT(X,Y) Tests point (X,Y) to see if it is lighted or not (very 
useful in some games). 



K)R Q = 1 TO 4$3 : NEXT Q 

PRINT CHR$(n) 

ON N GOTO a, b, c,...,z 



The : separates different instructions 
on the same line. This particular line is 
a "time waster" to slow down the computer. 

Obtains the character or screen action de- 
signated by ?i. 

When N takes on the value k t then pro- 
gram branches to k^ statement number in 
the list a, b, c, . . . ,z. (See Problem 11, 
Lesson 4 . ) 



Mostly, we have learned to use scire different "graphic" capabilities of 
the computer for fun and for work. 
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PRACTICE SESSION 4 



1. If you haven't tried a variation of the PRINT AT RND(ip00), M fflL 



program suggested, do so now. That is how you increase your under- 
standing of the BASIC language you are using. Try this one, too. 



ICtil 1 ENTER! 

500 X=RND(125) 

510 Y«RNJ><4?) 

520 SET(X,Y) : SET(127-X,Y) 

530 IP RND(0)<-002 THEN CLS 

540 GOTO 500 

2. Try the "snowflake" program given in the text. 

T0 CLS 
100 X=RND(12?) 
110 FOR Y-l TO M3+RND(3) 
120 RESET(X,Y) : SET(X,Y+1) 
130 NEXT Y 
1H0 GOTO 100 

Then add 

105 T=RND(127) 

125 RESET(T,Y~1) : SET(T,Y) 



Type LIST 1 ENTER 
Then, type RUN 



to se e the new program. 



ENTER to run it. 



3. Add a third snowflake to the extended program of Problem 2 by adding 
appropriate instructions in 1(56 and 126. Try your program out. 

4„ Run the following program: 



NEW ENTER 



100 X*0 

110 Y=0 

120 SET(X,Y) : SET(12?-X,Y) 

130 X=X+1 

m0 Y=Y+1 

170 GOTO 120 

If you are using Level I BASIC, it should fill the screen with dia- 
monds. 

If you are using Level II BASIC, the program will "bomb off" whenever 
Y>47 or X>127. This can be avoided by inserting: 

150 IF Y > MS THEN Y=RND(10) 

1M3 IF X > 125 THEN X-RND(IS) ^ it; again! 



69 



Page 4-24 



5. Try the following program on your TRS-80. 



: SET(X,Y+2) 
SET(X-2,Y) 
SET(X+3,Y) 
SET(X+1,Y-1) 
THEN as 



SET(X+1,Y+1) : SET(X,Y+1) 



NEbJ 1 ENTER 1 

% as 

100 X-tHRND(120) 
110 Y-3+RND(40) 
120 SET(X+l,Y+2) 
130 SET(X-1,Y) 
m0 SET(X+2,Y) 
mS SET(X,Y-1) 
U.0 IF RND(0)<-02 
E00 GOTO 100 

After it runs, try changing 160: 

1M3 IF RN3>(0)<-2 THEN as 

and then to 

IMS IF RN£(0)<=005 THEN as 

6. Extend and modify the program of Problem 5 by adding: 



* Note.: Tkt psiog/wm oi Vnoblzm 5 
\to 13 one, bomeitikat Keljatzd and may 
I be. ptactd o n the, T RS-80 without 
\uAing NEW I ENTE R I to 6avt *e- 
I typing. 



1?0 IF RND(0)<-? THEN 100 

200 X=0 

210 Y»0 

220 SET(X,Y) : SET(12?-X,Y) 

230 X-X+l 

23S IF X>120 THEN X-RND(k) 

2M0 Y-Y+l 

2H5 IF Y>MS THEN Y-RND(S) 

2^0 IF RND(0J<.01 Tf£N ^0 

300 GOTO 220 

7. Hun the following program; 



Type. RUN 100 \ ENTER] 



Tku wWL 
100 on, to 



Kim the, pnagnam &Kom 

che.ck it out. KjteJi it ti> cktekzd 

oat type. RUN \ ENTER | . 



MS FOR X=32 TO ESS 
1110 PRINT X, 
1120 FOR L-l TO MS 
1130 PRINT CHR$(X); 

11M0 NEXT L 
1150 PRINT 
11L0 NEXT X 

Run the program a couple of times. Then change statement 1100 to: 

110P FOR X=S TO 35 

and RUN the new program. 
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8. 'Pry this program: 

fc>00 CLS 

k!0 K=32+RND(1S0) 

b20 PRINT @ RND(1023), CHR*(K); 

b30 GOTO bl0 

After you have RUN the above program a few times, delete the semi- 
colon at the end of line 62$ and RUN it again. Can you detect any 
difference? Why? 

After RUNning the revised program (without the ; ) add: 

b!5 IF RND(0) < -01 THEN PRINT @ RND(1000), " HI you*, nam " ; 

and RUN it. 

9. Wasn't that fun! Now, try this one: 

500 X=RND(125) 

510 Y=RNJ>(M7) 

Sap SET(X,Y) : SET(127-X,Y) : SET(X,Ma-Y) : SET(127-X,Ma-Y) 

53(3 if RND(!a)<.ana then cls 

535 GOTO 500 [CompaAn tivu tmXk Vnjoblm /.] 

10. Here's another goodie. 

FOR LEVEL II 

700 FOR 0=4 TO 500 : NEXT <2 : CLS 

710 FOR X-153L0 TO 1^303 

720 POKE X.lll 

730 NEXT X 

7L0 RESET(RND(12M)+1, RND(M0)+2) 

770 IF RND(0)<-001 THEN 700 

760 GOTO 7L0 

FOR LEVEL I 

700 FOR (2*1 TO 200 : NEXT <2 : CLS 

710 FOR Y-0 TO H7 

712 FOR X=0 TO 155 STEP 2 

720 SET(X,Y) : SET(X+1,Y) 

730 NEXT X 

7M0 NEXT Y 

7k0 RESET(RND(12M)+1, RND(H0)+2) 

770 IF RND(0)<-001 THEN 700 

730 GOTO 7b0 
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11. The following knits together the four separate programs which we 
tested in Problems 5, 6, 9, and 10. Tn each case, the individual 
programs have been modified to send control to instruction 800 every 
once in a while. Instruction 800 then sends control, at random, to 
one of the subprograms beginning at instruction 90, 100, 200, 500, 
700, 200, 500, 100. 



5 T-.pil 
10 DEFINT X,Y 
^0 FOR (2-1 TO 200 



[Omit tha> in6tnuaf / lon on ItvtiL I BASIC] 

next a : as 



SET(X+1,Y+1) : SET(X,Y+1) 



SET(127-X,Y) 



100 X=M+RN1>(120) 
110 Y»3+RN»(MJI) 

120 SET(X+l,Y+2) : SET(X,Y+2) 
130 SET(X-l.Y) : SET(X~2,Y) 
1M0 SET(X+2,Y) : SET(X+3,Y) 
IMS SET(X,Y-1) : SET(X+1,Y-1) 
lb0 IF RN]>(P><-|K THEN CLS 
170 IF RNJ>((9)<-7 THEN 100 
160 IF RND(0)<T THEN 600 

200 X=0 

210 Y=0 

220 SET(X,Y) 

230 X»X+1 

23S IF X>12Q THEN X-RND(b) 

2M0 Y«Y+1 

2M5 IF Y>H5 THEN Y=»RN3>(5) 

2^ IF RND(0)<T THEN 600 

300 GOTO 220 

500 X-RNKiaS) 

S10 Y=RND(M7) 

520 SET(X,Y) : SET(127-X,Y) 

530 IF RNJ>(0)<.002 THEN CLS 

535 IF RND(0)<T THEN 600 

700 FOR (3*1 TO 200 : NEXT (2 

710 FOR X=153b0 TO 1L363 
720 POKE X,3fll 

73$ MEXT X 

?M3 RESET(RND(12M)+1, RND(40)+2) 

770 IF RND(0)<-0001 THEN ^0 

775 IF RND(0)<.1*T THEN CLS 
760 GOTO 7fe»0 

fin ON RND(fl) GOTO 10,100,^30,500,700,200,500,100 



SET(X,M6~Y) : SET(127-X^6~Y) 



On UvqZ 1 BASIC uAti: 



} 



as, 



770 FOR V-0 TO 47 

712 FOR K-0 TO 125 STEP 2 

<nt sET(x,y) : set{x+?,h 

I 739 NEXT X 
\740 NEXT V 
GOTO 600 



Instruction 

800 (M RND(8) GOTO 90, 100, 200, 500, 700, 200, 500, 100 

sends the program to the n th instruction in the list 90, 100, 200, 

500, 700. 200, 500, 100, depending upon the value of RND(8) which 

must he one of n = 1,2,3,4,5,6,7,8. 
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12. 

3^0 as 

M00 X«30+RND(bS) : Y=10+RN3)(2a) 

410 SET(X,Y) : SET(12k-X,Y) 

mi SET(X,4k~Y) : SET(iat-X,Mb-Y) 

415 X=X+RND(3)-2 

420 X-X-HRND(3)»a 

430 IF X>12S THEN X- 125 

435 IP X<1 THEN X=l 

440 Y=Y+RND(3)~2 

445 IF Y<1 THEN Y=l 

450 IF Y>45 THEN Y-45 

451 IF RND(0)<"W1 THEN FOR (3=1 TO 500 : NEXT a : CLS : GOTO 410 
453 IF RND(0)<-01 THEN 400 

455 IF POINT(X,Y) THEN RESET(X,Y) : RESET (12t,»X,Y) : GOTO 415 
4b0 GOTO 41(2 

Try the above program on your TBS-80. After you have enjoyed it a 
bit, undertake the following modifications . Is the design symmetric 
right to left? Is it symmetric top to bottom? 

Add the following instruction: 

413 FOR (3*1 TO 200 : NEXT £2 

which does nothing but slow down the action by forcing the computer 
to count to 200 each time it passes instruction 413. Run the above a 
bit before continuing. . .so you can follow the action in slow motion. 

Try changing the .01 in instruction 453 to .05 and see how the pat- 
tern is affected. 

Can you combine the result of instructions 415 and 420 into one in- 
struction? Eo so. (Note: Although the instructions appear identi- 
cal, the values of X on which they work are not, so be careful.) 

13. Modify the program of Problem 11 to also include the "Art" program of 
Problem 12, or your modification thereof. 

14. Write an ART program of your own. 

15. Write a program using the PRINT CHR$( ) instruction in some way. 

16. Write a program to display an 8 by 8 chessboard (with black and 
white squares). 

17. Write some programs of your own choice. You really do have the in- 
structions needed for most programs. 
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18. Write a program that begins 

1(30- X-RNIXSP) : Y=RND(2Sa) : L=fW(lS) 

and will then draw a square having upper left-hand corner (X,Y) and 
length of side L (/-units. When your program is running well, 
enclose it in a FOR NEXT loop so the program draws from 6 to 10 
squares. A possible over-program might be: 

10 CLS 

ii for"k=i to (s*z) 

1(3(3 X-gND(Sp) : Y-RND(ap) : L=RND(1S) 

Vou/t bquaAz-cbtaiolng p/togstam k&it. 

S00 NEXT K 

Sip FOR £2-1 TO 6m ' wtXT a 

52[3 GOTO ip 

19. Write a program to draw a design of your choice: stairstep, circle, 
tree, box, face, robot, or whatever turns you on. However, choose 
your design first , then try to approximate it on the computer. 

20. Make a bar graph showing data of your choice for several, years. 
Note: scale your data so the longest bar ends before X = 125. 

21. Make a cartoon of a dog that wags its tail on the display screen. 

22. Make a smiling clown face on the display screen. Then expand your 
program so the clown winks or cries or talks or something that in- 
volves picture movement. 

Z*~>. ^j.eatc an animate^ stxcK person" who walks across the screen, dows, 
and then continues walking offscreen. 

24. Investigate some commercially available program that uses animation. 
Some possibilities are: 

Dancing Demon 

Life (Conway's siinulation of cell growth) 

Android Nim 

Star Wars 

Chess programs 

See almost any of the magazines listed in Lesson 15 or consult your 
local computer store or Radio Shack. 
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LESSON 5 

MICRO-RESEARCH PROBLEMS 



PP* 






T^^^^^^^^^^^^^^ 




MICRO RESEARCH PROBLEM 

In Lesson 3, the number 30 Challenge Problem asks: 

"The song 'Twelve Days of Oxristmas ,r mentions various gifts that 
'my true love gave to me. ' Let's interpret the song so that 
'on the third day of Christmas, my true love gave to me 

Three French hens 

Two turtle doves 

And a partridge in a pear tree. ' 

My true love gave me six presents (3 French hens, 2 turtle doves, 
and 1 partridge, if we don't count the pear tree as a gift). How 
many gifts in total did my true love give to me during the twelve 
days of Christmas? Write a program to determine the sum. 
Answer: 364, if you do not count the pear tree as a gift." 

A student submitted the following program in response to Challenge Pro- 
blem 30. It does not produce the correct answer because the student 
has violated a very fundamental programming rule. Can you find the error 
and correct it? 



5 CIS 
10S=Q 
20 ID! 



K= 1 TO 12 



PRINT K; 
50 IF K=l THEN 90 
60 K=K-1 
GOTO 3(3 

PRINT " "; S 
100 NEXT K 
110 PRINT " TOTAL* 



30 
40 



70 

90 



Before you continue, see what you can do to help our slipshod student. 
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The basic principle our slipshod student violated is. 

■ana traetaeaa Kansas DBOBawna oono a a a aaaaamBaaaaaataaaaBaaaaaaatitoao^ 

I Do NOT change a FOR. . .NEXT variable : 

j inside of the FOE. . .NEXT loop. « 
• » 

■ ■ 

i - »..«.««....... .«.«: 

it you look at the output from the program on the previous page 

1 1 

2 1 4 
2 1 7 
2 1 10 
2 1 13 
2 1 16 

etc. 



since the first colurm in each line (separated by ; spacing) presumably 
contains the K values and the right most values (separated by » spacing) 
give the current S values, it is apparent that K is not taking on the 
values from 1 to 12 as might be expected in FOR K= 1 TO 12. 

Indeed, the program blunder (changing the value of K inside the 
TOR. . .NEXT loop) forces K back to K=l by the end of each loop, so the 
new K value, namely K+l, is always K=2. Live and learn. 

If you haven't worked on this Challenge Problem, you should before 
continuing. It is possible to make the ''blunder" into a valid running 
program merely by changing instructions 20 and 1(30 and adding an in- 
struction 25. See if you can do so before continuing. 
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Here is our new program, with new instructions at 20, 25, and 100 
as indicated, 

5 OS 
10 S=0 

—. 20 FOR L = 1 TO 12 

•-25 K = L 



30 


S « S+K 


40 


PRINT K; 


50 


IF K = 1 THEN 90 


60 


K- K-l 


70 


GOTO 30 


90 


PRINT " ";S 


- 100 


NEXT L 


110 


PRINT " TOTA]>";S 



This produces the reasonably understandable output 

RUN 



1 1 














2 1 


4 












3 2 


1 


10 










4 3 


2 


1 


20 








5 4 


3 


2 


1 


35 






6 5 


4 


3 


2 


1 


56 




7 6 


5 


4 


3 


2 


1 


84 


8 7 


6 


5 


4 


3 


2 


1 120 


9 8 


7 


6 


5 


4 


3 


2 1 165 


10 9 


8 


7 


6 


5 


4 


3 2 1 220 


11 10 


9 


8 


7 


6 


5 


4 3 2 1 286 


12 11 


10 


9 


8 


7 


6 


5 4 3 2 1 364 


TOTAL 


= 364 











READY 



Mathematicians might use the Greek symbol sigma, z, to indicate the 
sum and express this problem as 

12 



T™1 I V I 

ML \ KfI 



Would the program listed on the following page achieve the same result? 
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200 SL - 

^.10 rutt ij- i w x^ 

22?) SK = 

230 EOR K = 1 TO 

240 PRINT K; 

250 SK * SK + 

260 NEXT K 

270 PRINT " "; 

280 SL « SL + SK 

290 NEXT L 

300 PRINT M 



SK 



TOTALS"; bL 



Von't typz WE(W. Ja6£ 6&wct £to 

p/iogftam tndtd, &o you can nun 
uLthoA. one by using'* 



RUN \EHTER\ 
[BREAK] 

OK 

mH 100 \£HTER I 
on g&x. both, by moAtly typing 
RUM IEA/TER1 



The final total is the sanB in each case (TOTAL =364) but the in- 
termediate sums (at the extreme right of each line) are quite different. 

Hrmm? How would you change the second program to get it to mimic the 
output of the first program? Well, we want line 

to print the value of SL instead of SK. 



270 PRINT " 
Let's change 270 to 

270 PRINT " 
and renin it. 



SK 



SL 



* At first, that may look better, but a little more careful examination 
shows that this revision of the second program produces a running 
(cummulative) sum that is always one line late . Hrrmn? 



If we interchange instructions 

270 and 280, giving 

2#0 SL = 

210 K>R L = 1 TO 12 

220 SK = 

230 FOR K « 1 TO L 

240 PRINT K; 

250 SK = SK + K 

260 NEXT K 

270 SL = SL + SK 

280 PRINT " "; SL 

290 NEXT L 

3<&0 PRINT " 1OTAL="; SL 




\ AfOY Y0V8 



This program should now produce the same result as the program on the 
mBvious Da&e, Does it? Yes. it does. Franklv. I prefer the oroexam at 
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the nop of the previous page that lists the number of gifts each day on 
the right edge, rather than the running total. 

Actually, that problem is simple enough so that we could have com- 
puted the result without using a computer. , .but since a computer was read- 
ily available, it may have been easier to use the computer. Or it would 
have been ; if we hadn't made so many foolish blunders in our program. 
Basse ver , correcting blunders is one way to learn to write blunder- free 
programs. 

Let us turn our attention to some problems that are not easy to 
solve without a computer. The term micro-research problems seems approp- 
riate for problems that are not to be found in most text books. The 
easiest way to find the answer to a micro-research problem may well be 
to solve it for yourself. Interestingly, you do have enough mathematical 
and computer programming ability, so that with the help of a TBS-80 micro 
computer, you can solve many problems that would have been beyond your 
ability and/or patience five lessons ago. 

Let's get going! 

Now that you can use your computer to solve a really difficult 
problem (obtaining roots of messy equations, Lesson 3) and have fun 
using the graphics capability of your 1TJS-80 (Lesson 4), it is time to 
think about some interesting micro-research problems on which you can 
expect to make reasonable progress using your computer. We shall walk 
through the solution of one quite difficult micro-research problem in 
derail - but you may wish to solve it yourself before reading on. 

Problem : 

Find perfect square integers like 5776 which have 
the property that they end in their square roots. / 5776 = 76 

Axtaittedly, this problem is not earthshaking, but it would not be very 
easy to solve without a computer. Try it yourself before continuing, 
with or without a computer. 
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STEPS FOR COMPUTER-ASSISTED PROBLEM SOLVING 



Successful problem solving is apt to involve several quite different 
stages. Here is a series of steps that is sincerely reconriBnded. 



1. Be sure you understand the problem. Try to restate it in 
several ways. Then try to find a general rmt.hnH (algorithm) for 
solving the problem. 

2. Examine a simple special case first. 

3. Then, if it seems appropriate, program a computer to examine 
another special case. 

4. Modify your computer program to examine a different special 
case. 

5. Modify and generalise your computer program. Include tests to 

be sure the program is working as expected. 

6. Run the new program and examine the output. 

7. Now re-examine the output. Use your common sense and mathemat- 
ical, acumen to see if you can devise a better (faster and/or safer) 
algorithm or prove a theorem that will help solve the problem, unless 
it is already solved. 

8. Go back to step 5, if the original problem has not yet been 
solved to your satisfaction. 



This seems rather round-about at first, but experienced computer 
problem-solvers have found it is a much better technique than the usual 
technique of the amateur, who tries to start by writing the final pro- 
gram, or at least with the program of steps 5 and 6 right away. This 
is fine on trivial problems, but on more difficult problems it is really 
better to start easy and work up gradually, testing each stage. 
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Try it on our problem. 

1. Be sure you understand the problem . Try to restate it. 

Original Problem 

Find perfect square integers like 5 776 w hich have the property 
that they end in their square roots. / 5776 - 76 

Restated Problem (same problem, but from another viewpoint ) 

Find non-negative integers N such that 1$ ends in N. 

Find integers N^O such that their squares S = N 2 end in the 

digits of N. 

The first technique (algorithm) that suggests itself may well be 
just to examine S = N 2 for each N and determine whether or not 
S = n2 ends in N. Later you may be able to devise a better 
algorithm. 

2. Examine a sinple special case first . 

In attempting to solve any problem, it is well to examine 
several special cases before plunging in. 

NJ3I23456789 

N 2 1 4 9 16 25 36 49 64 81 

So the one-digit numbers N whose squares end in N are N = 0, 1,5,6. 

3. Write a computer program to examine another special case . 

Let us write a program that will find the three-digit numbers 
N whose squares end in N. Hie last sentence displays two rather 
important problem-solving techniques: 

1. In computing, it frequently pays to rephrase a question by 
turning it around a bit. 

2. It jjs often helpful to examine a special case (here the 3-digit 
case) of a more general problem. 

You may wish to try writing such a program yourself before 
continuing. 

If you wish to examine the last 3 digits of a number S, then you 
need to devise a technique of finding the last 3 digits of a longer 
number. There is an easy way to do it using the INT ( ) function. 

INT ( ) produces the integer portion of the value insicfce of the 
parentheses. Thus, INT (34.761) =» 34. 
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The instruction 

T * S - 1000*IOT (S/1000) 

will produce the last three digits of S and store them as T. If this 
is not obvious, try it for 2 or 3 integral values of S. 

For example: S = 123456 

S/1000 « 023.456 

INT(S/1P00) = 123 

1000*IOT(S/1000) * 123000 

S - 1000*IOT(S/1000) = 123456 - 123000 = 456 

Using this instruction, see if you can devise the desired program your- 
self. 



A program to examine the 3-digit numbers N such that S = N*N ends 
in N: 

100 H)RN = 101 TO 999 

110 S = M#ft 

120 T = S "- 1000*INr(S/1000) 

130 IF KoT THEN 200 

140 PBINT S;N 

200 NEST N 

You may wish to run the above program before continuing. 

The results are: 

141376 376 

390625 625 

4. Modify your program to examine other special cases . 

Can you change the program to also obtain the 1-digit values 
of N whose squares end in N? — namely, 0,1,5,6 as we saw when 
we worked the problem by hand? 

Of course, you can. Merely change instruction, 

100 K)E N = 101 To 999 100 K)R N = TO 9 

and to 

120 T - S - 1000*IOT(S/1000) "" 120 T « S - 10*IOT(S/10) 

and RUN the program. 
Try it yourself. 

What changes would you make in the program to obtain the 2-digit 
values ox N such that a = Jr ends in the digits of N? 
Please do so before continuing. 
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Although our current attack is clumsy, even a clumsy attack is 
of i en better than no attack at all. Let us now try to produce a 
program which will do the modifications for us. This is unnecessary in 
this particular problem, since the modifications are easily done, but 
we may learn some useful tricks along the way. Examine the following 
program and be sure you see how it works before running it . 

5. Generalize your computer program to examine several cases using 
the same program . 
Our new fundamental program : 

(toheAe. V U £k<L inttQQJt 1, &ottomd 
10 INPUT P by aA many zvtoh aA theAt oa.<z dXqXM 

100 K)R N = l+P/10 TO P-l ln jV ] 

11^ S=N*N 

120 T^S-P*INT(S/P) 

130 IF NOT THEN 200 

140 PRINT S;N 

200 NEXT N 

The program seems to work well. If there is a way to change P from 10 to 
100 to 1000 etc, as the program goes along, you could then use a slight 
modification of the old program. Try it yourself before continuing. 

In any event, the modified program given below sounds as if it 
would work: 

10 P=10 

100 H3R N = 1 + P/10 TO P-l 
110 S=N*N 

120 T=S-P*INT(S/P) 

130 IF N<>T THEN 200 

140 PRINT S;N 

200 NEXT N 

210 P = P*10 

220 GOTO 100 

Try it. . .it works! Well, it works for a while anyway. 

It really does need two more instructions 

90 PRINT "NOT WORKING ON N<" ; P Also change 220 GOTO 90. 

This will tell you the general range of N-values on which the program 
is working. If it gets stuck, you at least know where. It will also 
give you estimates on how long it takes for each set of k-digit N values, 

for k = 1,2,3, Gannon sense suggests 3-digit numbers should take 

about 10 times as long as 2-digit numbers, since there are 10 times as 
many of them. 
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Rementer to include another inportant check. 



not tell S from S+l. If a computer carries 
only six digits of accuracy, for example, 
and S is a 7-digit number, say 

(True S) = 7654321 
The computer shows this as 7.65432E+06, 
which is read 7.65432 *1(>6 or 
7654320. Now (True S+l) « 7654322. 
However, if your computer stores only 
six decimal digits of accuracy, then 

S+l = 7.654322 *1<)6 
which is chopped off (or possibly rounded) 
to six significant digits, giving 

7.65432E + 06 
which is precisely what you had for S. 
Thus, the computer cannot distinguish 
between S and S+l. 




IF it's 
V£KY Dl& 

I CAN'r 
DI$Titsre.vt$ii 

S FRO M $ + *, 




In this case, the final digit of S is no longer known. The computer 
substitutes zero for it, and cannot tell if S ends in the same digits as 
does N. Surely, you wish your program to STO> automatically if such a 
crisis should arise (and it does, inevitably ). 

Do this by inserting the instruction 

115 IF S=S+1 1HEN PRIOT "OVERHUOT ERROR W S,N="; S;N : STCP 

If the computer cannot distinguish between S and S+l, it will print 
the requested message and then SOT>. Otherwise, the program will ignore 
.instruction 115 and pass on to the next instruction. 

The expanded program now reads; 

l^ P - 10 

90 PRXn/" WM WORKING ON N< " ; P 
100 KB N = 1 + P/10 TO P-l 

110 S « N*N 

115 IF S - S+l THEN PRIM 1 "OVERBLOW ERROR ON S,N= 

120 T = S-P*INT(S/P) 

130 IF No? THEN 2$$ 

140 PRINT S;N 

2^ HE2T N 

210 P=P*10 

220 GOTO 90 

let's return to "Steps for Computer-Assisted Problem Solving 1 \ 



S;N : STOP 
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6 , Rua the general program and examine the output . 

Give it a try on your own computer before continuing. 
The output is: 

LEVEL II BASIC 



NOW TORKING CN N<10 


25 


5 


36 


6 


NOW WORKING ON N<100 


625 


25 


5776 


76 


NOW WORKING CN N<1000 


141376 


376 


390625 


625 


NOW WORKING ON N<10000 





LEVEL I 


BASIC 


NOW WORKING ON N« 


:l(J 


25 


5 




36 


6 




NOW WORKING ON N<100 


625 


25 




5776 


76 




NOW WORKING ON N<1000 


141376 


376 




390625 


625 




NOT WORKING ON N< 


: 10000 



OVERHjOW ERROR ON S,N » 3.35588E+07 

5793 

BREAK IN 115 



OVERFLOW ERROR ON S,N = 1.67772E+07 

4096 



HotLcJi, oua p/wgsmm "bombed o&&" at 



Notice, ouui pttog/utm "bombed o&£" cut 

P-10000 with S,W= 3.3558SE+07, 5793 P-10000 with S,N - 1.6777ZE+07, 

a6 a XMudbt 0j5 #ie £&A£ <cw ^>t6£tua- 4096 ai a KOMutt o& the teAt in 

tiovt 115. imt/iuxUlon 115. 

This seems to reach the limits of exploration using LEVEL I BASIC 
unless we axe willing to construct our own special "multiple precision" 
routines. 
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It is tine to consider a new concept in computing 
rYTTPUP DPWPTRTnN" flPTTHMPPTn 



If you have LEVEL II BASIC on your THS-80, you can also investigate 
the problem for 4-digit and 5-digit valises on N (which produce 8 and 10- 
digit values of S) by including the .instruction 

5 DEHBL, S,P [which am Jt&ad "Pe^tne Double.".) 

which produces double length (16-digit) values for any variable beginning 
witn SorP. (Maybe we can even run the program for 6,7, and 8-digit 
N-values which have 12,14, and 16-digit squares — wait and see.) 

However, troubles appear; 

The TRS-80 does not produce a double length product if single length 
numbers are multiplied together. Thus S = N#N will not produce a valid 
8-digit square, if N is a single precision 4-digit muter 

For N = 9376 (TRUE S) = N 2 = 87909376 

However, the ccmputer rounds this to six digits and produces 

N*N = 8.79094E + 07 

which is stored .in S as 87909400, rather than the correct value, 
87909376. 

The "obvious" solution is to make all three of S,P, and N double 
precision by using 

5 EEHXBL S,P,N 

However, the 

R)RN = 1+ P/10 TO P-l 

instruction will not accept a double precision variable for N. 

Ihis is easily fixed by using 

100 N = l+P/10 100 K)R N = HP/10 ID P-l 

130 IF N<>T THEN 150 i n place of im IF ®<>T TBEN T 9M 

.150 N = Nf 1 

200 IF N<P THEN 110 200 NEXT N 
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The program now reads : 

5 lEEDBL S,P,N 

10 P = 10 

90 PRINT " NOT WORKING CN N< M ;P 

100 N = 1 + P/10 

110 S = N*N 

115 IF S = S+l THEN PRINT "OVERFLOW 

ERROR W S,l*="; S; N:STOP 

120 T = S - P*INT(S/P) 

130 IF NoT THEN 150 

140 PRINT S;N 

150 N - N + 1 

200 IF N<P THEN 110 

210 P = P*10 

215 PRINT 

220 GOTO 90 



[hloU* 



COMMENTS 



5 Omit instruction 5 if you are 
using LEVEL I BASIC. 
10 The number of zeros in the 

current value of P is the num- 
ber of digits in N. 
90 It is good practice in a pro- 
gram whose output may be scarce 
to include a statement display- 
ing what the program is doing. 

115 This is a necessary precaution, 
when the computer cannot tell 
the difference between S and 
S+l, the program will STOP and 
so indicate on the screen. 

210 Changes P to the next higher 
power of 10. 

220 Repeats program with new P 
value. 



The output is: 
Level II BASIC 
NOW WORKING CN N <10 



25 

36 



NOW WORKING ON N <100 



625 
5776 



25 

76 



NOW WOHONG CN N <1000 



141376 
390625 



376 
625 



NOW WORKING CN N <10000 

87909376 9376 
NOW WORKING W N <1 
8212890625 90625 



Level I BASIC 

Committing instruction 5) 



NOW WORKING CN N< 10 



25 

36 



NOW WORKING W N <100 



625 
5776 



25 

76 



NOW WORKING CN N <1000 



141376 
390625 



376 
625 



NOT WORKING CN N <10000 

OVERFLOW ERROR ON S,N 1.67772E+07 

4096 



NOW WORKING ON N < 

11963109376 109376 
793212890625 890625 



etc. 
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You will notice that for each new P value, it requires ten times 

as much conr'uter time as for th° ^r°vio'' ic ' P Tr al 7 '" ::> 



Run the program again and time it. 



Level II BASIC 



Level I BASIC 



Your program did not "bomb out" 
like Level I did. But it sure can 
use up lots and lots of computing 
time. 
To get from 



P=100 

P=1000 
P=10000 



to P=1000 
rr P-10000 



took about 1.5 

minutes 
Mn 15 minutes 
"" 2.5 hours 



If you let your TRS-8Q run another 
24 or 48 hours, from P=100000 to P= 
1000000, you will also find 



11963109376 
793212890625 



109376 
890625 



You were stopped during 

P=10000 
at which time the instruction 

lib U?' 3=3+1 1HEN PRIOT "OVERBLOW 
EHBOR CH S,N=";S;N:STOP 

halted the ran. You may wish to 
delete instruction 115 and rerun 
the program to see what happens. 

Remember you can always s top the 
program by depressing 1BKEAK1 
You may then learn the values it 
was working on by typing 



and who knows what else??? 



NCW IS THE TIME K)R US TO C£T SMART. 



PRINT P,N,S,S+1 1ENTERI 



This program really works the problem in a very crude brute-force way. 
We are just examining every number, N. The number of numbers to be exam- 
ined increases sharply as P increases. 





No. of cases 


Approximate time 


1 < p <10 


8 


Less than 1 second 


10 < p <100 


88 


9 sec 


100 < P <1000 


898 


90 sec =1.5 min. 


1000 < P <10000 


8998 


15 min. 


10000 < P <100000 


89998 


150 min =■ 2.1 


100000 < P <1000000 


899998 


24 hr. 


1000000 < P <10000000 


8999998 


9 or 10 days 



Clearly we can reasonably expect to examine P < 10, 100, 1000, 1000$, 
and even 100000, but after that, the computer time involved becomes 
exorbitant. Of course, you may reason that the TO-80 might just as well 
be working on your problem as be sitting idle. It takes very little 
power. (It uses about as much power as a small light bulb, if you turn off 
the CRT display tube, which you might as well do if you are not watching 
it. You can turn it on and recapture whatever would have been on the 
screen at that moment, The computer coatini 



luss uO couijjute evou when the 
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Stemming to our "Steps for Computer-Assisted Problem Solving", 

7, £&~examine the output . Use your common sense and mathematical 
knowledge to devise a better (faster) algorithm to help solve the 
problem. 

We really should have recognized at the beginning that N 2 must end 
in 0, 1, 5, or 6 if N 2 ends in N. This would have saved almost 60% of 
our computing time. Actually if N>9, then N cannot end in since then 
N 2 would end in 00, etc. Simlarily if N>9, N cannot end in kl since 
then N 2 would end in (2k) 1 since (lOk+1) 2 ^ 100k 2 + 2Qk+l. Similar math- 
ematical arguments show that if N >9 and if N 2 ends in N, then N ends in 
5 or 6. So instead of increasing N by 1 each time we can jump by 1? and 
test both N and (N+l) to see if either has the desired property. The 
following program will cut 80% of our running time — doing an hour's 
testing in 12 minutes. 



Yot/ ah® tL.£v&z( 

^JJ THIS -VWLL cur 




5 EEEDBL S,P,N 

10 P=10 

90 PRINT "NOW WORKING ON N<";P 

100 N « 5 + INT(P/100)*1O 

110 S = N*N 

115 IF S = S + 1 THEN PRINT "OVERFLOW ERtfOR ON S, 

120 T = S - P*INT(S/P) 

130 IF N oT THEN 150 

140 PRINT S;N 

150 Nl = N+l 

152 SI - N1*N1 

154 Tl = SI - P*INT(S1/P) 

156 IF Nl <> T! THEN 160 

158 PRINT S1;N1 

160 N=N+10 

200 IF N <P THEN 110 

210 P = 10*P 

215 PRINT 

220 GOTO 90 



N =" 3;N:STOP 



Try it. It works, and we really might have been smart enough to have 
thought of discarding 80% of our unsuccessful cases in the beginning. 



89 



Page 5-16 



However— new that we have some output to look at, it may be possible 
to find an even more clever way to speed up our program. Look at the 
output. Do you notice anything special? 

N^ N 

25 5 

36 6 

625 25 

5776 76 

141376 376 

390625 625 

87909376 9376 

8212890625 90625 

11963109376 109376 

793212890625 890625 

Two items demand our attention: 

I. When we investigated the one-digit N's by hand and on the first pro- 
gram (modified to numbers from to 9), we found 

N 2 N 



1 1 

25 5 

36 6 

but our current computer program missed the first two values 0, 1. 
Just why did that happen, and do you think that it missed any 
other values between P = 10 and P = 1000000? Are You Sure? 

We did obtain all the values between P = 10 and P = 1000000, but 
did miss N = and 1 because this program did not test N - or N = 1, 
since it started at N = P/10 + 1 f or P = 10 which is 2. 

If you didn't notice that earlier, you need more computing experience 

"Ke»"fV>'r*o Trot! nr*.r\ Ks rv-yr>o>7 /^cs-^vs^ n rumli' fi«^ iwi+o'tw 

II. Notice: Ihe only large values of N such that N 2 ended in N were 
values of N that themselves ended in those exact digits for which 
we found seme previous satisfactory N . Now that may be a real 
clue! 
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Consider the case starting at P=1000. We found 

N 2 N 



141376 376 

390625 625 

It seems reasonable to believe that any 4-digit value of N whose square 
ends in N will have the value of N itself ending in either 376 or 
625 since otherwise, N 2 would not end in N. Hnran. Well, yes — that 
seems reasonable. 

However, some things that "seem reasonable" turn out not to be 
true. For exanple, one of my students extended the above conjecture 
by asserting, "Since there is only one 4-digit value of N such that N 2 
ends in N, there can be only one such N having k digits for any k>4." 

However, 

N - 1(39376 N 2 = 11963109376 

N = 8953625 JT « 793212890625 

hlcws that "reasonable conjecture". 

(Why?) Well, because the student didn't recognize that the six-digit 
109376 was a suitable extension of the four-digit N « 9376 under our 
original guess, with as the fifth digit. Hnran. 

Well, how about the original guess? If we could show that 



Conjecture 

If a given N 2 ends in the digits N >.!#, then N itself must 
end in the same digits as some smaller such N. 

Not yet proved. 



Would it be helpful in our search? 

Well, you just bet it would be! 

For example, in examining the 5-digit N values instead of examining 89998 
cases, we would only need to examine the 20 cases X9376, XD625 (and 
possibly the 10 more cases X0375 unless we can show that is also impos- 
sible. . . . which we can) . 
I'm not going to prove the conjecture — but it is true. 
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To cut down from 89998 cases to 20 
cases for the 5~digit N values is a 
savings of 99.98% of the numbers to be 
tested. The 6-digit values produce 
even greater savings . What would for- 
merly have taken twenty-five hours 
should now rim in less than a minute, 
even if each number evaluated took 
several times as long to test (since 
the program may be messier than before). 
That is indeed a worthwhile savines. 




-*<0g^-&i&&!tt 



For now let us assume the sligbtly stronger result: 



If in endw in N, then N tzuus in the digits of sorae susaller K • 

such that KT ends in K. Furthermore, the previous K will be \ 

a K with one fewer digit than N, with the possibility of lead- : 

ing zeros on a smaller K such as 9#625 being the N for K = \ 

(6625, K 2 = 39fe5. \ 

Let's start our program with 3-digit N values. This will enable us to 
test the program and see if it is running as we believe it should.. 

Store the "last two successful values of N" that we are trying to extend 
in locations A and B. Starting with the 3-digit values of N, there will 
be 



P « 1(90(9 
A = 25 
B = 76 



(since when N = 25, N^ = 625) 
(since when N = 76, IT = 5776) 



to properly "seed" our program with the successful 2-digit values to be 
extended. 

Continuing with "Steps for Computer-Assisted Problem Solving," we find: 
8. Go back to step 5 . 

5. Modify and generalize your computer program . Include tests to be 
sure the program is working as expected. 
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6. Run the new program and examine the output . 

The following program seems to produce the desired results in 
nxxierate time. Study it until you understand it well enough to 
explain it to one of your classmates who needs help. 

5 DEFDBL S,P,N,A,B [OmU 5 l& usUng LEI/EL I BASIC.) 

1(3 P=1000 

20 A=25 

30 B=76 

90 PRINT " WORKING ON N < " ; P 

95 Q=P/10 

99 HEM THIS BLOCK EXTENDS A VALUE 

100 H)R K=l TO 9 

105 N = K*Q + A 

110 S - N*N 

115 IF S=S+1 THEN PRINT "OVERFLOW ERROR ON S,N = ";S;N: STOP 

120 T = S - P*INT(S/P) 

130 IF N<>T THEN 200 

140 PRINT S;N 

150 A=N 

160 GOTO 300 

200 NEXT K 

210 REM END OF BLOCK THAT EXTENDS A VALUE 

250 REM 

299 REM THIS BLOCK EXTENDS B VALUE 

300 FOR K=l TO 9 
305 N = K*Q + B 
310 S « N*N 

320 T « S - P*INT(S/P) 

330 IF N<>T THEN 400 

340 PRINT S;N 

350 B=N 

360 GOTO 500 

400 NEXT K 

401 REM END OF BLOCK THAT EXTENDS B VALUE 

450 RBI 

500 P = P*10 

520 GOTO 90 



Put it on your computer and see how it runs. 
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Output from Level II BASIC 

YiOEICIKG ON N < 1000 

390625 625 

141376 376 

WORKING ON N < 10000 

879(59376 9376 

WORKING ON N < 100000 

8212890625 90625 

WORKING ON N < 1000000 
793212890625 890625 
11963109376 109376 

WORKING ON N < 10000000 
8355712890625 2890625 
50543227109376 7109376 

WORKING ON N < 100000000 
166168212890625 12890625 
7588043387109376 87109376 

WORKING ON N < 1000000000 
OVERFLOW ERROR ON S,N =1.704786682128906EH-17 412890625 

BREAK IN 115 

READY 

>_ 

Output from Level I BASIC 



WORKING CN N ■ 

390625 625 

141376 376 



WORKING CN N • 
OVERFLOW ERROR OS S,N - 2.13906E + 07 4625 

New we need to ask if the original problem has been solved. 

If it was to find all perfect squares N^ such that N^ ends in the N, 
then it is only partially solved. The program found all such N < 412890625 
but there is no reason to suspect that is all there are, There is also 
the possibility our program may be defective and may have overlooked some 
N values less than 10 9 (After all - we did overlook and 1 - remember?). 

This is one way research is done. First, investigate a few special 
cases. Next, use a simple program to investigate a few more cases. If 
the results seem worthwhile, automate your program and let it run a bit. 
Next, examine the output, make some conjectures and prove or disprove 
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their validity. Then, devise a new technique (algorithm) for carrying 
out the investigation and implement it. 

Now you are ready to try to prove the most general case. It may or 
may not yield to your effort - but in any case, you have a pocketful of 
results that were previously unknown. We shall not attempt to go further 
here, but strongly suspect some able student will do so. 

There is one additional check that should be made. 

Did our last two programs produce the same results as far as they 
overlapped? If not, why not? This is important. 

The two programs are: 





Program from page 89 




Faster program from page 93 


5 


DEFDBL S,P,N 


5 


DEFDBL S,P,N,A,B 


10 


P - 10 


10 


P = 1000 


90 


PRINT "NOW WORKING ON N<";P 


20 


A = 25 


100 


N - 1 4- p/10 


30 


B = 76 


110 


S = N*N 






115 


IF S = S+l THEN PRINT "OVERFLOW 


/ 90 


PRINT " WORKING ON N<";P 




ERROR ON S,N= n ;S;N:STOP 


95 


Q=P/10 


120 


T « S - P*INT(S/P) 


99 


REM THIS BLOCK EXTENDS A VALUE 


130 


IF N<>T THEN 150 


100 


FOR K=l TO 9 


140 


PRINT S;N 


105 


N = K*Q + A 


150 


N - N + 1 


110 


S = N*N 


200 


IF N<P THEN 110 


115 


IF S=S+1 THEN PRINT "OVERFLOW 


210 


P = P*10 




ERROR ON S,N« M ;S;N:SKP 


215 


PRINT 


120 


T = S - P*INT(S/P) 


220 


GOTO 90 


130 


IF NoT THEN 200 






140 


PRINT S;N 


HUN 




150 


A^N 






160 


GOTO 300 






200 


NEXT K 






210 


REM WD OF BLOCK THAT EXTENDS 
A VALUE 






250 


REM 






299 


REM THIS BLOCK EXTENDS B VALUE 






300 


FOR K=l TO 9 






305 


N = K*Q + B 






310 


S « N*N 






320 


T = S - P*INT(S/P) 






330 


IF NoT THEN 400 






340 


PRINT S;N 






350 


B = N 






360 


GOTO 500 






400 


NEXTK 






401 


REM END OF BLOCK THAT EXTENDS 
B VALUE 






450 


REM 






500 


P = P*10 






520 


GOTO 90 






RUN 
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The two rather different programs seem to agree as far as they go, 
but the longer program produces more results in two minutes, than the old 
program did in 48 hours or even a week. Itaat is what is meant by effec- 
tive programming. 

Actually all values of N such that £P ends in N for N of 100 or 
fewer digits are known, but their investigation uses more mathematical 
sophistication than we are willing to impose here. 




A/tO 
MY SP&&D 
W£ CAN 

vo nasa arch. 



WHAT JE &VE.fcEflMTO.flt LESSON. 5 . 

Hie most important thing in Lesson 5 is the realization that you do 
already have enough computer adroitness to successfully undertake the 
investigation (and at least partial solution) of problems so diffi- 
cult that a month ago you wouldn't even have tried them. You should 
also have discovered that it is frequently a nontrivial (but perfectly 
possible) task to program a computer to help solve research level 
problems . 

Most important of all - you have discovered one of the fundamental 
truths of computer progranming. 



When you have a program written and it is debugged 
and running properly, then if you reflect on the 
problem you will frequently find a better way to 

to think hard, then scrap your earlier effort and 
start over. 



Of course if the problem is a "one time only" problem and if your 
existing program produces the desired results while you are thinking, 
you can forget the reprogramning unless you want to show the program 
to someone else or to use it again later. 
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SOME MICRC^RESEAROi PROBLEMS 
YOU MAY UNDERTAKE 

Don't expect all of these problems to be easy, or even solvable 
with your present knowledge. They are micro -research problems for your 
consideration. If you 60 more than two problems, you are to be congrat- 
ulated. After working on a problem as stated, see what extensions and 
modifications you can devise; work on them. 

1. If the 6's are cancelled in 16/64 <* 10/04 = 1/4 the result is correct. 
(26/65 ■+ 20/05 = 2/5 is another example.) Find all examples of proper 
fractions such that AB/BC = A/C with A f B where A,B,C are digits 
between and 9 inclusive. 



If N! * 1*2*3*... *(N-1)*N for N > 1 R 
and S(K) « 1! + 2! + 3! + 4! + .. . + K! = V* 



(N!) , 



N=l 



for what values of K > 1 is S(K) a perfect square? 
(This requires some easy mathematical thinking after you have writ- 
ten and run a computer program. ) 

3 . Write a program to accept an integer N > 2 as input and then type 
out N and the factors of N. 

4. Let your input be three positive numbers A,B,C (not necessarily 
integers ) . 

a) Determine whether or not A,B,C can be the sides of a triangle. 
(Note: If A,B 3 C = 1 J S ) 3 3 the answer is "no".) 

b) If A,B,C are acceptable as sides of a triangle, extend your pro- 
gram to also print the area of the triangle. 

c) If A,B,C do determine a triangle, extend your program to also 
compute the angles of the triangle. 

5. a) Write a program that will accept a positive integer N as input 

and determine whether or not N is a prime. (Note: 1 is not 
a prime. An integer N > 1 is prime if its only positive factors 
are 1 and N. ) Compare your program with those written by your 
classmates. Test it for several values of N > 6000. See whose 
runs fastest, and why. 

b) Make a table of primes < 5000. 

c) Extend your program to print out all the prime factors of N. 

6. Write a program to accept two positive integers M and N and to print 
out M, N and also the largest positive integer which divides both 

M and N, Such an integer is called the greatest common divisor 
and may be found using a technique called Euclid's Algorithm or 
by simply trying all positive integers from the smaller of M and N 
down to 1 until you find a value which will divide both. 
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If you use the latter (inefficient, but effective) technique, your 
program could begin: 

100 INPUT "M,N =" M,N 

106 IF M<-=0 THEN 100 

108 IF N<=0 TEEN 100 

109 REM: INSTRUCTION 110 SETS S = SMAIIER OF (M,N) FOR USE IN 200 

110 IF M>N THEN S « N ELSE S = M 
200 FOR D-S TO 1 STEP -1 



7. Find two consecutive integers whose squares each use exactly the same 
digits (in a different order, of course). Thirteen and fourteen are 
such a pair; 13 2 = 169 uses the same digits as 14 2 = 196. Similarly, 
1572 = 24649 and 1582 *= 24964. Find other pairs of consecutive inte- 
gers whose squares are composed of the same digits. 

8. a) Write a comptiter program to accept three values M,D,Y and deter- 

mine whether or not they are acceptable values for Month, Day, 
Year in that order. If Y < 1590 you may prefer to state the 
date is unacceptable rather than consider the variotis calendar 
reforms that took place prior to 1590. 
b) Extend the above program to accept two sets of three numbers and 
if both are acceptable as Month, Date, Year values, deterarme 
the number of days between them including both dates in your 
count. 
Example: 2,20,1978 to 2,22,1978 is 3 days. 

9. For the distinct digits A, B, C, D, E, F, G, H, I, J the product 

A#(BOE)=KMIJ 
has solution 4*(7039) - 28156 and a dozen other solutions . Find them. 

10. Write a program to accept a positive integer K and print it out and 
also print out the integer obtained by reversing the digits of K. 
Example: If K = 12345, 

print out: 12345 54321 

11. The sequence rt „ _ 

1 2 3 4 6 8 9 12 16 18 24 27 32 ... 

is made by listing numbers of the form N = 2r . S 
(with k and m integers k»0, m^0) in order of increasing sitze. 
It is not easy to devise an algorithm to generate and print them in 
increasing order , but that is only part of your task. The even more 
difficult problem is to find the 1000th term of the sequence, or more 
generally, given an integer T, find the T-th term of the sequence. 
Sharks to Fred Gruenberser for suggesting this problem. ) 
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12. Write a program that will draw a random maae on the screen such that 
it is possible to reach every cell of the maze, but there is only one 
fr best n path (i.e. without retracing) through the msuze. Then, extend 
your program so that the computer will "solve" the maze it created. 

13. a) Determine the sum of the N-digit numbers that can be formed 

using N specified digits for each possible set of 2,3,4 and 5 

digits. 

Examples: 

N = 2 Digits - 3,8 Then sum = 38 + 83 - 121 

Digits =4,1 Then sum « 14 + 41 = 55 (les, we count 
Digits =2,2 Then sum = 22 + 22 = 44 22 both ways,) 

N - 3 Digits = 1,2,3 Then sum - 

123 + 231 + 312 + 132 + 321 + 213 = 1332 
Digits = 3,8,9 Then sum = 

389 + 893 + 938 + 983 + 839 + 389 = 4440 

b ) Notice that the sum seems always to be divisible by 11 . Can you 
prove this in general? What other factors will the sum have? 

c) Can you show that an N-digit number will have N! different 
permutations, (N-l)! of which start with each digit, and (N-l)! 
of which have each digit in the second place, etc.? 

d) If you prove each of the above, you may also be able to show 
that the sum of the N! numbers obtained as permutations of the 
N digits will always be (N-l)! * (sum of the original digits) * 
(the integer consisting of N ones). £br N - 8, Digits = 
1,2,3,4,5,6,7,8 there are 40320 integers and their sum is 
2015999979840. 

e) What happens if a number containing repeated digits is counted 
only once? Thus N = 2, Digits « 2,2 Sum = 22 (not 22 + 22 = 44). 
[This is a rough problem.] 

14. A palindrome is a phrase or sentence which reads the same forward as 
backward. 

"Too Hot To Hoot" 

"Ma Is As Selfless As I Am" 

"Retracting, I Sign It, Carter" 

"Marge Lets Norah See Sharon's Telegram" 

There are also numbers which are palindromes. It is fairly easy to 
find perfect squares which are also palindromes. 

(Ill) 2 = 12321 

(202 ) 2 = 40804 

(264) 2 = 69696 
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15. 



It is possible to prove that there exist infinitely many perfect 
squares that are palindromes. However, perfect squares that are 
palindromes having an even number of digits such as (S36) 2 = 698896 
are fairly rare. 

Investigate the subject of perfect squares that are also 
palindromes. 

For what values of N > 1 doer t,T - ° 
is a perfect square? 



> 1 does W = 2 -1 contain a factor 



1 which 



If N = 

If N = 7, W 

If N « 8, W * 2 



2^ 

2 7 

8 



1 = 63 = 3~ • 7 

1 - 127 which does not contain a square factor > 1 

■1 = 255 which does not contain a square factor > 1 



16. a) 



b) 



It is easy to find Pythagorean rectangles having integral sides 
and integral diagonals (l,w,d) = (3,4,5) or (5,12,13). But can 
you find a box (rectangular parallelepiped) having three 
distinct integers as dimensions, each of whose face diagonals 
is also an integer? 

If so, can you also find one whose body diagonal as well as face 
diagonals are integers? 





/ 
/ 
/ 

/J 






17. Use your TRS-80 to design some personal greeting or Christmas cards. 
Take photographs of the TRS-80 showing the design on the screen and 
enough of the keyboard to be recognizable. Send one to your authors. 



% 00 



Part II-Page 1 





You are ready to proceed on your own now. No one is expected to 
work all of the research problems in Lesson 5, but you should work several 
and at least read and consider the others. The way to learn computing is 
to compute, and then reflect. 

The remainder of this book discusses useful techniques and additional 
BASIC instructions you may or may not need to know about. Lessons 6 to 17 
may be read in any order desired , or ignored . Read about these techniques 
when you are ready to use them. You already have skill enough to solve 
many problems using the computer as a tool. We suggest you glance briefly 
at the suTimary below to ascertain the general content of the lessons be- 
yond 5 . Then read them when the need for such specialized information is 
felt . Read whatever interests you most, and continue with the micro- 
research problems presented in lessons 5 and 17. 



Lesson 6 is devoted to the use of the TAPE CASbKi'i'^ for storage of 
programs and data . 

lesson 7 is devoted to GAMES and TAPED PROGRAMS you may enjoy. 

Lesson 8 discusses the EDIT instruction in greater detail. 

Lesson 9 is an introduction to simulation , one of the most important 
uses of computers in today's world. 

Lesson 10 discusses double precision variables (introduced in Lesson 
5) before introducing subscripted variables and the fascinating (and 
vital) string variables (more details in Lesson 14). The lesson closes 
with arrays (matrices) and how to use them. 

Lesson 11 is a collection of tips that may help you overcare or avoid 
difficulties. Remarks on saving memory space and computing time as well 
as a listing of the meanings of major error codes are presented in this 
lesson. 



Lesson 12 Although the PRINT instructions already at your disposal 
are sufficient for most users, your TRS-80 Level XI BASIC has a variety of 
other PRINT instructions and special commands that are frequently useful: 



PRINT TAB( ) 
PRINT USING A$,K 



PRINT STRXNG$(K, n # M ) 
PRINT CBR$(n) 



Lesson 13 Lesson 4 may meet all your graphic needs, but Lesson 13 
explains the pixel notation and introduces several tiine-saving techniques 
and instructions. 
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Lesson 14 extends your knowledge of string variables, and introduces 
o i3E2' r, tax rrr conversational ^ro^Tans in which the cccirouter simulates con- 
versation! ^XhewScjt OOuTOMl program and the CIPHER program may also 
interest you. 

Lesson 15 explains how and where to look for additional information 
on computing with particular emphasis on the TRS-80 Level II BASIC. 
Several computer related journals are listed with brief annotations. 

Lesson 16 discusses several BASIC instructions not used earlier in 
in this book. 

Lesson 17 extends the collection of seventy- five microRESEARCH 
PROBLEMS. The way to learn computing is to compute and then to examine 
your programs and results to see if you could have devised a better pro- 
gram. 

The discussions presented Lessons 5 and 17 are planned to help you 
develop efficient as well as effective programs and to whet your problem 
solving ability. Many of the problems presented are readily extended. 
Their solutions frequently suggest further explorations worthy of your 
talent. This is why they merit the adjective "RESEARCH". The wide var- 
iety of problems includes something for every taste: several arithmetic 
explorations, greeting card graphics, Haiku poetry, logical decisions, 
calendar problems, dart and target games, loan and finance programs, trea- 
sure hunt games, caricatures, speech timer, puzzles, recursive functions, 
polygonal maps, a medical, emergency prompter, number theory problems, 
lattice problems, magic prime squares, graphs, monkeys at typewriters, 
amicable and sociable numbers, dance partners and the eight queens pro- 
blem. 



THE IMPORTANT THING IS TO HAVE FUN WITH YOOR micro COMPUTER 
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TAPE CASSETTE for programs and data storage. 



Occasionally you have a social program worth saving for future use or to 
show off to a friend. Put it on tape. Tape is also handy for storing data. 

Each TC3-80 canes with a tape recorder for storing programs and data 
that you wish to save. It uses regular (high quality) tape cassettes. I 
personally prefer the short 30 minute (15 minutes per side) tapes rather 
than the 45 minute, 60 minute or 90 minute tapes since the tape recorder 
starts, stops and operates more uniiormly when the reel contains less 
tape. Try it and suit yourself, Radio Shack sells a special lOnmnute 
tape for use on TRS-80 which has no "leader" on it — but any high quality 
30 minute (15 minutes per side) tape will serve — just so you don't try to 
record on the leader. 
Fct leadv-iA who have ul.den. CTR-40 and CTR-41 tape. Kzcon.de.HA> * 

Hie original tape recorders supplied with TRS-80s were CTR-41 , s on 
which the REM jack had to be unplugged before the tape was repositioned. . 
The CTR-41 also requires the use of a "durrrny plug" in the MIC jack at 
all times. Hie CTR-80 now furnished should not have a dumny plug inserted 
at any time. 

Instead of unplugging the HEM jack on the CTR-41 you can use a short 
program. 

mm OUT 255,4 

9010 INPOT "REPOSITION TAPE, PRESS (ENTER) WHEN READY" ; A$ 
9020 END 

Then type RUN 9000 when you wish to reposition the tape. 
fan fwadthA with pw-W&O CTR-&0 tape hecon.de.n.M 

-xne more recent CTR-80's can use "fast-forward" or "rewind" without 
unplugging the connection between TRS-80 and the cassette at the REM jack. 
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llus is much nicer. 

In either case the voltone control was critics! in getting usable 
programs and data back into the TBS-80 -- on early (pre- July, 1979) TRS™ 
80s. 

The following may be helpful: 

Radio Shack announced (Spring, 1979) a "fix" that they will install free 
to make the recording level less sensitive on existing TRS-80 T s. Current 
TRS-80's already have it installed. Your TRS-80 Level II keyboard has a 
catalogue number on the underside of the case. If the catalogue number 
ends -1 (example 26-1006-1) , the modification has already been made . 
If not, it will be worthwhile to take the keyboard unit to Radio Shack 
to have the free "fix" made. Cassette storage is much easier to use 
thereafter. 

If your CTR-80 cassette player was manufactured before February, 1979 
(see date stamped on cassette box— Eeh., 1979 = 2A9) take the cassette 
player to your Radio Shack store, too. They will install a small capaci- 
tor in the innards of the electronics to avoid a possible "noise spike" 
on your recorded tape if you push the stop button while it is reading 
tape, an infrequent but annoying happening. If the date of manufacture 
is Feb. , 1979 or later (say 6A9 or 1A0) this extra protection has already 
been installed at the factory. We recommend setting modified CTR-80 
cassette recording level at 4 both for recording and playback. Oice you 
find the best volume for your system , a drop of white correction fluid 
(Snopake, Liquid Paper, etc.) or paint will mark the location for future 
reference . 

In any case, the usual tape care is essential. 

!• Don't leave cassettes near a magnetic flux source like your power 
supply or near a magnet as in a motor or a speaker. Mso, don't ex- 
pose cassettes to extreme heat or cold. 

2. Keep your cassette capstan and rollers clean . Dirty heads cause lots 
of troubles. If you don't know how to clean them, your nearby Radio 
Shack or tape recorder store will be glad to show you, and sell you a 
cleaning kit (<$2). 
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lb load a tape that already contains a program 

Plug in everything carefully. 

110 volt (Don't expect to use the batteries.) black power 

cord 
DIN plug to TRS-80 keyboard hole labeled TAPE with 



pip on plug in slot on socket 

3 plugs on other end of cable connect to cassette player 

B1ACK plug into EAR hole 

LARGE GREY plug into AUX hole 

SMALL OREY plug into small MIC hole (CTR-80) 
or REM hole (CTR-41) 

If you are using CTR-41 put dummy plug into MIC and leave it 
there. 

If you are using Cffi-80 do not use dummy plug— just leave big 
MIC hole empty. 



NEXT: 



Adjust the position counter back to 2ero (They register differently on 
CTR-41 and CTR-80, so be a bit suspicious. ) 

Qieck the volume adjustment. (This is fussy, experiment a bit.) 
CTR-41 5 to 8 

CIR-80 3.5 to 4.5 (user-generated); 4 to 5 (commercial tape) 
Pusn iPLAYl key on cassette. 

Type CLDAD or CIDAD "£" and [ENTER! on Keyboard (where I is letter 
identifying your program) . 

The cassette should be turning now. 

Soon the TRS-80 video screen will show two asterisks . 



lOS 



Lovel 1 











1 y 









Level II 



If all is going properly, one asterisk will blink irregularly. 

When it finishes loading, the cassette will halt the tape and the display 
screen will show 



READY 



Depress the I STOP] button on tho c assette (even though the Lajx; 
has halted). Vo nrtleavz the. \?LAV\ key dep/tewerf when not In aae. 
Type LIST JKNTERl . 
If the program seems OK, type HON lENIERl . 

If no program is present (or if the asterisks appeared but did not wink) 
lower the volume slightly; rewind the tape and try again. 

If something loaded, but the last part seems all jumble and gibberish, 
increase the volume slightly; rewind the tape and try again. 
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TK F!\\Tr? 



Set up the cassette recorder as described before; be sure plugs are 
set firmly in the proper holes. 

Check the volume setting. 

Cm 41 4-6 

(Try mid-range first . ) 
CTR 80 3.5-4.5 

Rewind the tape. (Unplug REM jack only if on CTR-41 or use program fix.) 

Reset the tape counter to 000. 

Advance the tape to get past the "leader" if you are using standard tape — 
or to a blank place if the tape already contains some programs or data. 
(I usually begin programs at 10 on the tape and leave between 10 and 
19 "counts" of blank tape between programs. Tnis may be overly cau- 
tious, but it sure makes it a lot easier to find things.) 

Note the program name and where it begins on the index card with your 
cassette or on the cassette label. 

IVpross both 1rE00KD1 and IPLAYl keys on the cassette; recorder (surprise- 
yes lx>th should be down to record — so the TfS-80 am control things 

properly). 

Type CSAVK " " (with a letter to identify the program between toe 

„ „ } . 

The tape should begin to advance and the TBS-80 will record your program 
on the tape. 



When the program is recorded, the video screen will display 
as usual. 



READ? 



Depress the ISTOPJ button on your recorder. Ibis is irnportant . 

Note where the program ended on your index card or the cassette label. 

Bewind the tape to the beginning of the program (see index card and count- 
er). 

Eeprass IPLAYl only on cassette player. 

Type CABfflj ? to check the tape against the piogram in toe TI^-80 memory. 
If the tape checks properly, the screen will display HEAD?, otherwise 
screen will display BAD and you should C^AVE " " it again. 
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I roeord cadi pix^ram twice, just in case anything happens. You' I i hnvr 
more space than \ou onji vuse on a 15-minuLo i>er side tape. (Use both 
sides, of course. ) 



Sound and Music 



Some TRS-80 programs include sound or music as part of their output 
Higher quality musical reproduction is obtained by using a separate ampli- 
fier and speaker. If you are interested in medium fidelity sound rather 
than high fidelity music production, quite satisfactory results may be 
obtained using the amplifier present in the cassette player furnished 
with your TRS-80. 

First get the program in your TeS~80 in the usual fashion. Then 
unplug the black plug from the ear hole in the cassette recorder (leaving 
the two grey plugs in place). Plug the earphone that came with the tape 
recorder into the ear hole (or better yet plug a speaker in there—you 
can get a suitable jackplug or converterplug from Badio Shack) . 

Now you need to fool the tape recorder. Remove any tape cassette 
from the recorder. Push in the little lever at the back left side of the 
opening where the cas sette wo uld go. While you are depressing it, depress 
both the LPOORDJ and ) PLAY 1 buttons on the front of the recorder. These 
should stay down when you release the lever. Now RUN your program. 




.o,rur;/sr;,4/; , S" ctionK are ^ to piace **» «*> **» «* *> 

PRINT a.i ? PRINT #-l,X,Y,B$,A$ 

Output to cassette #1 from corrputer 
INPUT #-l 1NpCT £ 1jX;ZjB$ 

Input from cassette #1 to conputer. 

a S illil°LT e st^ZT lZ^l e :f , th keyboard bounce (double letters f ™> 

a single key stroke), use the debounce tape, tore recent keyboards seem 
Sore" wZ™ nUCh tr0Uble "^ thlS M «* ttose Leve! II-nSSe^eT 
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Computers are magnificient game players. It isn't hard to play games 
wixich someone else has programmed - if they have done a good job of writ- 
ing the program, but writing quality game-playing programs is difficult. 

Here is a not very well written game. Put it on your computer; play 
it two or three times and then come back to the text and together we shall 
improve it. 

5 REM TREASURE HOOT - FIRST TR5T 

10 CIS 

20 XI = RND(50) : Yl « KND(5j3) 

30 PRINT "A TREASURE IS BURIED IN A 50 BOOT BY 50 TOOT SQUARE. IF YOU 
CAN LOCATE THE GEID POINT NEAREST IT, YOU WILL FIND THE TREASURE." 

40 PRINT 

50 INPUT "PLEASE TYPE COORDINATES X, Y = ";X,Y 

60 IF X « XI AND Y = Yl THEN 500 

70 A=X-X1:B = Y-Y1 

80 D = S($KA*A-*B*B) 

90 PRINT "SORRY YOU MISSED IT BY";D;"KEET." 

150 GOiu 40 

500 REM TO HERE WLY IF TREASURE IS FOOT) 

sjMp Twit **> — x iw &p 

520 PRINT @ RND(1000), "WHEEEE YOU GOT IT." 

530 NEXT Q 
540 GOOD 10 

Well - it's a game - and the program works if you typed it in correct- 
ly. But it isn't much fun. You really need nore infornsatioa than 4 ust 
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It would help il the program told you whether X and Y are too bin 
or too small, lb you want to try to revise the program on your own be- 
fore you continue? 

One of the most common games computer programmers play is "one-up-man- 
ship' 1 . Modifying existing programs is one form of the sport. An impor- 
tant way to gain progranming skill is to adapt and improve a working pro- 
gram written by someone else. There is an axiom among computer program- 
mers that says 



Any program you have written, 
I can improve upon. 



It has as its converse 



Any program I have written, 
you can improve upon. 



and together they have a corollary 



Any program I have written, 
I can improve upon. 



Each of these is probably true. In some cases the real question is 
whether or not xt is worthwhile to improve on a program even if you can 
do so. 

The answer depends upon how frequently the program will be run and 
how much of your time will be required to improve the program. 

Some ways it is frequently possible to improve programs are: 

Make them use less computer time. 
Provide output better suited to the user's needs. 
Make the program easier to understand (and hence 
easier to modify and maintain). 
4. Generalize the program so it is useful in solving 
other problems without sacrificing speed. 

Programs designed to play games or solve puzzles somehow seem partic- 
ularly subject to inpro-vement, even by beginners. We shall look at sever- 
al commercially available programs and how they can be improved. IMs is 
one of the most satisfying ways to improve your own ability as a program- 



1. 
2. 
3. 
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~w ^ ^ t-,^ ^*.*c_^-,. .«iu j^iijjj. v>vc oils orBciSiXTG liuiic pro^rsiii, 
of the original program is 



50 INPUT "PLEASE 1YPE COORDINATES X,Y =";X,Y 

60 IF X « XI AND Y = Yl IHEN 500 

70 A = X - XI : B - Y - Yl 

80 D - SQR(A*A+B*B) 

90 PRINT "SORRY YOU MISSED IT BY";D; "FEET. " 

150 GOTO 40 

500 REM TO HERE ONLY IF TREASURE IS BOUND 



540 GOTO 10 

It would be nice to print another line of type right after 9™ that 
tells us which way to go/ Let's insert the following:^ ~ " *~~ 

100 IF A> IHEN A$="TOO BIG" EL£E A$="TOO SMALL" 

110 PRINT "YOUR X VALUE IS ";A$, 

120 IF B> IHEN A$ = "TOO BIG" ELSE A$ = "TOO SMALL" 

130 PRINT "YOUR Y VALUE IS ";A$ 

Insert these instructions and run the program again. It is more fun 
this way, isn't it? Play it several tiroes. 

HEY - DID YOU NOTICE THAT THE PfDGRAM CHEATS? YES IT DOES. 

If you get either X or Y correct, but not both correct, it tells you 
to change them both. 

Insert temporary debugging instruction 
21 PRINT XI, Yl 
and run it again. The correct treasure location will now be printed at 

the tOt> of the SCn^n- SO xrrrn n<sv\ +v»o-*- i +■ TV™-* ^.j-j; _: „ j _.„__._ 

- - *-' — <~w.- *- ~ j^w. v-**** o^ot, j.u. Axy puttXU^ Xil tWO WiX>JUg 

values - Seems OK. Next put in the correct value for one coordinate and 
the wrong one for the other coordinate, Emm - ^e pw}gran> s+^i ^aiir^ 
both values are either TOO BIG or TOO SMALL, ^tvm^tdo^vdn it? 

CK OK CX 

We'll fix that too. Try 

100 IF A> THEN A$ = "TO) BIG" ELSE IF A = <h mm; &$ = "(W 1 Fr<=rc 

A$ = "TOO SMALL" 
120 IF B>0 THEN A$= "TOO BIG" ELSE IF B = IHEN A$ - "QIC" ELSE 
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Try it - it works now. Remember to delete instruction 21 before you 
show it off to someone else. 

There is really no reason we need always work on a 50 by 50 foot 
square. How about letting the player select the size of the square'? 
We'll need an instruction to INPUT the size of the square. 

15 INPUT "PLEASE TYPE LENOTH OF SIIE OF SEARCH SQUARE. ";S 

Remenfoer to thwart the person who puts in 4.73 or -2 or sore such 
joke. 

16 S - IOT(ABS(S)) 

Before continuing ^ou should look through the program and see what 
other instructions need to be modified. 

Instructions 20 and 30 need to be changed; our new program (still 
no t jpenec l ) xs 

5 REM TREASURE HUNT - SEOM) TRY 

10 as 

15 INPUT "PLEASE TYPE LENGTH OF SIIE OF SEARCH SQUARE "*S 

16 S = INT(ABS(S)) " ' 
2(5X1= RND(S) : Yl = BND(S) 

30 PRINT "A TREASURE IS BURIED IN A";S;" BY ";S;"K)OT SQUARE IF YOU 

An ^JP^ ™ GRID mmV NE^T IT, YOU WILL FIND THE TREASURE." 
40 PRINT 

50 INPUT "PLEASE TYPE COORDINATES X Y ="*X Y 

60 IF X = XI AND Y = Yl THEN 500 

70 A = X-XL:B = Y-Y1 

80 D = SQR(A*A-*B*B) 

90 PRINT "SORRY YOU MISSED IT BY";D;"FEET " 

100 IF A> IHEN A$ = "100 BIG" EC3E IF A = IHEN A$ = "CK" ELSE 

110 PRINT "YOURX VALUE IS ";A$ 

120 IF B> THEN A$ = "TOO BIG" ELSE IF B = THE2S A$ - "CK" ELSE 

A$ = "TOO SMALL" 

130 PRINT "YOUR Y VALUE IS ";A$ 

150 GOTO 40 

500 REM TO HERE ONLY IF THEASuTBS IS FOUND 

510 K)R Q = 1 TO 80 

520 PRINT @ RND (1000), "WHEEE YOU GOT IT » 

530 NEXT Q 

540 GOTO 10 

Play the game a few times and then, after correcting the spacing an 
instructions 30, 100 and 120 if needed, show it to a frilnd. 

What happens if someone inserts .5 or as the value for S? Mavbe 
we need another smart aleck guard at 17. * 
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17 IF ARS(S) = (A TTONF R =r *\(m • t>dtwt» matt nT^tm ™™r^ .... __ ._.. 
TOT TUTS'" ' _ ' " "^ * "■**"** x * ijLj ^^-^ om^nxx, i iju ifiA XUU. 

Modifications of this treasure hunt program can provide the first 
approximation of a nuriber of much more interesting games. 

How about adding Degth at which the treasure is buried as well as 
X,Y locations? 

irnAfJfS^r? ^^l the coordinate game to play the child's game 
aAlTL^SHIP m which the computer selects positions for several targets 
which you must locate? e 

Can you insert graphics which will show you where vour choices have 
teen^and the corresponding D value rather than telling you which way to 

Try a few modifications of ynwr own. 

Here are some games programmed (or adapted) by secondary school 
students in Oklahoma in Spring, 1979. If you find unfamiliar instructions 
see lesson 16 or your TO^80 ISVEL II BASIC Reference Manual. 

5 CX£ 

9 PRINT 
1(80 G = HND(10)/RND(10) 

110 5SS ™ ™VB A NBW IRACTICN TOR YOU TO GUESS. PI£ASE TYPE YOUR 

GUESS IN DECIMAL K)M. n 
12(5 INPUT X 

130 IFX = GTHEN PRINT 'TOEEE. . .YOU GOT IT! "• GOID 100 
140 IF X>G THEN 170 W 

^ S r i ^° UR GUESS IS ^ SMALL ' ^ ACMN MASE." 
160 GOTO 120 



Play the game; then consider anv desirable r^^^ s r* -^^— _.,_-., 
ed adding the following: (HoweveA, 4t"<{£ noTS^ oT^^ed^?^" 

tfou he£p?) 

x^ on ebbor good 900 

900 ^ 9 M ^^SE 1YPE THE FRACTION USING DECIMAL Rtt, NOT N/D KM." 
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THIS IS A HANGMAN GAME ADAPTED BY 

3 REM KAREN JEANNE HENRY 

4 REM Rl BX 580 MOOD, CK 74851 

5 REM (4(55) 273-1133 

10 REM THE HANGMAN PBOOIAM IS SELF EXPLAINED. THE PERSON PLAYING 

WILL INPUT A LETTER AND THE OMPOTER WILL TELL YOU IF YOU 

ARE CORRECT OR NOT. 
20 REM AS YOU INPtfT EACH IMTTER THE COMPUTER MAY OR MAY NOT CHANGE 

GRAPHICS 
25 REM WHEN YOU FINISH THE GAME THE OCMTOER WILL VERIFY YOUR WIN OR 

LOSS BY CHANGING GRAPHICS AND/CR WWS 

30 REM X + Y ARE USED IN SET STATEMENTS IN FOR-NEXT LOOPS 

31 REM D$( ) ARE THE WORDS, F$( ) ARE THE LETTERS OF THE WORDS 

32 REM WD IS THE TOTAL NUMBER OF WORDS IN THE MAIN PROGRAM 

33 REM W$ IS THE OTOTED LETTER L(N) 4- Fl ARE COUNTING DEVICES 

34 HEM K IS A VARIABLE CF HOT MANY WRCNG IMTERS 
99 CLEAR 100 

100 REM 

102 OS 

1(33 WD = 10 

104 K=0: FOR 3NKL TO 8: L(N)=0: NEXT N 

105 PRINT "**HANCaiAN** n 

106 FOR X « 9 TO 51 STEP 6 

107 SET(X,15): SET(X + 1,15) : SET (X + 3,15) : SET(X + 2,15): NEXT X 

108 FOR X - 70 TO 79; SET(X,44): NEXT X 

109 FOR Y « 4 TO 44: SET(74,Y): SET(75,Y): NEXT Y 

110 FOR X - 76 TO 101: SET(X,4): NEXT X 
140 FOR Y - 5 TO 7: SET(lpl,Y): NEXT Y 

150 IF FG = 1 THEN 160 ELSE D$(l) - "APPU2": D$(2) - "HEART 1 : D$(3) - 
•OTUDENT' : D$(4) = 'TETHER": D$(5) = "PETOL" :D$(6) = "PAPER" • 
D$(7) - "PEN" : D$(8) = "WORK": D$(9) = 'TIRED": D$(10) - "HARD" 

160 ED = ED + 1: IF ED> WD THEN 2050 EI£E 7$ - D$(E©) 

180 N = LEN(Z$) 

190 F$(l) - MID$(Z$,1,1) 

200 F$(2) = MIB$(Z$,2,1) 

210 F$(3) = MID$(Z$,3,1) 

220 F$(4) « Mn3$(Z$ f 4,l) 

230 F$(5) - MID$(Z$ ( 5,1) 

240 F$(6) - MID$(Z$,6,1) 

250 F$(7) - MIB$(Z$,7,1) 

260 F$(8) = MID$(Z$ t 8,l) 

270 IF F$(3)<>"" THEN 290 

280 RESET (21,15) : RESET (22,15) : RESET (23,15) : RESET (24,15) 

290 IF F$(4)<>"" THEM 310 

300 RESET (27,15) : RESET (28,15) : RESET (29,15) : RESET (30,15) 

310 IF F$(5)o ,m THE3S 330 
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320 
330 
34(3 
35(3 
360 
37(2) 
38(3 
39(3 
400 
410 
415 
420 
425 
427 
430 
440 

450 
460 
470 
480 
500 
510 
520 
530 
540 
550 
580 
610 
620 
630 

640 

650 
66^ 
670 
700 
710 
720 
750 
760 
800 
810 
820 
850 
860 
900 



THEN 
KESET (52,15) 
"THIS WORD HAS M 
"TYPE EACH LESTER" ; 
"PRESSING ENTER EACH TIME' 



RESET (33,15) : RESET (34,15) : RESET (35,15) : RESET (36,15) 

IF F$ (6) <> " " THEN 35^ 

RESET (39,15) : RESET (4fT ( 15) : RESET (41,15) : RESET (42,15) 

IF F$ (7) <> " " THEN 370 

RESET (45,15) : RESET (46,15) : RESET (47,15) : RESET (48,15) 

IF F$ (8) <> " " THEN 390 

RESET (51,15) : RESET (52,15) : RESET (53,15) : RESET (54,15) 

PRINT @ 388, "THIS WORD HAS '*; N; "LETTERS",; 

PRINT @ 452, 

PRINT @ 516, 

Z = 644 

PRINT @ 896, " " ; 

INPUT W$ 

PRINT @ 980, " " ; 

FOR N = 1 TO 8 

IF W$ = F$(N) THEN PRINT @ (258 +(3*N)), W$; : L(N) - 1 : FLAG = 1 : 

GOTO 450 

NEXT N 

IF FL = THEN PRINT @ Z. W$: : Z « Z + 2 

P = 

FOR N = 1 TO 8 : IF L(N) = 1 THEN P « P + 1 

NEXT N 

IF P - LEN(Z$) THEN 2000 

IF EL = 1 THEN FL = : GOTO 420 

ON K + 1 GOTO 540, 66^ t 710, 810, 910, 980 

K = 1 

FOR X - 95 TO 107 : SET (X,8): SET (X,I6) : NEXT X 

FOR Y - 10 TO 14 : SET (109, Y) : SET (93,Y) : NEXT Y 

SET (94,9) : SET (108,9) : SET (108,15) : SET (94,15) 

SET (97,10) : SET (105,10) : SET (101,11) : SET (101,12) 

SET (95,12) : SET (96,13) : SET (97,14) : SET (98,14) : SET (99,14) 

SET (100,14) 

SET (101,14) : SET (102,14) : SET (103,14) : SET (104.14) : 

SET (105,14) : SET (106,13) : SET (107,12) 

GOTO 420 

K « 2 

FOR Y = 17 TO 

GOTO 420 

K = 3 

FOR X = 103 TO 112 : SET (X.20) : NEXT Y 

Y - 19 : SET (117,14) 

FOR X * 112 TO 116 : SET (X,Y) : SET (X+l.Y) 
GOTO 420 
K = 4 
FOR X = 90 TO 99 : SET (X,20) : NEXT X 

Y = 26 

FOR X = 85 TO 90 : SET (X,Y) : SET (X,Y™1) ; 
GOTO 420 



33 : SET (100, Y) : SET (101, Y) : SET (102, Y) : NEXT Y 



Y-l : NEXT X 



Y-l : NEXT X 
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910 K = 5 : Y = 33 

920 H)RX= 103 TO 112 : SET (X,Y) : SET (X+1,Y) : Y = Y+l : NEXT X 

960 SET (113,43) : SET (114,43) ; SET (115,43) : SET (116,43) : 

SET (117,43) 
970 GOTO 420 
980 Y = 42 

990 FOR X = 89 TO 98 : SET (X,Y) : SET (X+1,Y) : Y = Y-l : NEXT X 
1030 SET (85,43) : SET (86,43) : SET (87,43) : SET (88,43) : SET (89,43) 
1040 RESET (101,12) : RESET (95,12) : RESET (96,13) : RESET (106,13) : 

RESET (107,12) 
1060 K)R X « 97 TO 104 : RESET (X,14) : NEXT X 
1100 SET (97,14) : SET (98,13) : SET (99,13) : SET (100,13) : 

SET (101,13) : SET (102,13) : SET (103,13) : SET (104,13) : 
SET (105,14) 
1110 PRINT @ 772, " AHHH! THAT'S TOO BAD"; : GOTO 2010 
2000 PRINT @ 772, M OOH3RATULATICKS! YOU WON! ! !"; 
2010 K)R N = 1 TO 2000 : NEXT N : OS : GOTO 100 
2050 BM THIS CHANGES TORDS 

2055 ON F+l GOTO 2060, 2070 

2060 D$(l) = "GEOMETRY" : D$(2)="ALOTRA" : D$(3)= "TRIANOE" : 
D$(4)= "FORMULA" : B$(5)= "SOLUTION" : D$(6)« "SUBTRACT" : 
D$(7)= "NEGATIVE" : D$(8)= "REDUCE" : D$(9)= "INVERSE" : 
D$(iP)r "FRACTION" : K=l : Jfal : GOTO 170 
2065 DD=0 : PG=1 : GOTO 100 

2070 REM THE PERSON USING THIS PROGRAM CAN AED MORE WORDS IN THIS SAME 
WAY, USING THE D$(SUBS), OH HE CAN USE DATA FILES AND STOffi WOTC6 CN 
A TAPE RECORDER OCOTRQLUSD BY SHE OMOTER. USE H3R N=l TOW 
INPUT #-l , D$(N) : NEXT N : GOTO 2065 9 ' 



This program win fit on a 4~K Level II TOS-80, but you may need to 
squeeze out" most of the spaces as suggested in Lesson 11. 

1060 FORX-97TO104 : RES£T(X, 14) : NEXTX 

is hard to read, but requires less computer memory. Lines 3 to 34 
may be omitted, if necessary. 

After it is up and working, you may wish to try to improve it by 
including additional words from a cassette file. See Lesson 6. 
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REVERSE 

1(3 REM * REVERSE * BOB YARBROICT 4-78 

2(3 REM RANDOM DIGITS ARE FLASHED. OPERATOR MUST ENTER NUMBER 

21 REM FORMED BY WRITING DIGITS IN REVERSE ORDER 

3(3 REM L IS INITIAL LENGTH OF STRING OF DIGITS 

31 L=3 

40 REM A IS LENGIH OF COUNTER 

41 A=1(W 

m RKM n TR NTJMRER OF CORRECT T^WWRRR HEFHRE STRING 

51 REM IS LENGTHENED 

52 G-3 

6(3 REM STRING IS SHORTENED WHENEVER AN ERROR IS MADE. 

7(5 CLS 

8(3 PRINT "YOU MUST ENTER DIGITS SMN IN REVERSE ORDER." 

9(3 PRINT 

10JJ o=<p 

101 PRINT "NEXT STRING WILL BE ";L; n LONG. 1 ' 

1(34 QOSUB 2(3(3 

1(36 CLS 

lip FOR X«57 TO 68 

112 SET(X,21) 

114 SET(X.29) 

1 16 NEXT X 

120 FOR Y=21 TO 29 

122 SET(57,Y) 

124 SET(68.Y) 

126 NEXT Y 

13(5 FOR N=l TO L 

132 A(N)=RND(9) 

134 Z*ip*Z + A(N) 

136 NEXT N 

14(3 FOR N=L TO 1 STEP -1 

142 PRINT @ 542, A(N); 

144 GOSUB 2(3(3 

145 SET(60,25) 

146 SBT(61,25) 

147 NEXT N 
14S CLS 
149 PRINT 
IS? INPITT P 

152 IF P <> Z THEN 18(3 

16(3 PRINT "CORRECT 

162 OC+1 

164 IF C < G THEN 1(32 

166 IM/4-1 

168 GOTO 100 
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REVERSE (Continued) 

18J) PRINT "WRONG ***";Z;"***" 

183 GOSUB 200 

186 L=L-1 

19(3 GOTO 100 

200 FDR M=l TO A 

2(92 NEXT M 

204 RETURN 

210 END 

Note: If you wish the digits to be displayed for a shorter period of 
time, change line 41 to: 

41 A = 500 or some smaller value. 
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ASTEROIDS 

1 REM ^ASTEROIDS* MICHAEL BRIGGS 1-79 

2 CLS : PRINT " MANEUVER THE SHIP THROUQI THE ASTEROIDS BY USiNG THE 
UP-ARROW KEY TO GO UP, THE DOWN ARROW TO GO DOWN, AND THE < AND > 
KEYS FOR LEFT AND RIGHT." 

3 Z - 15 

4 DIMA(Z,15) 

5 PRINT 

6 INPUT "PRESS ENTER TO START" ; D 

7 LL = 150 
9 CLS 

10 X - 63 : Y - 44 

15 TI « 

20 SET (X,Y) : SET (X,Y+1) : SET (X-l,Y+2) : SET (X+l,Y+2) 

22 FOR G = TO 127 

24 SET (G.47) 

26 NEXT Hotti NEXT voonkt a& weUL 06 NEXT X, 

30 KB L - 3 TO 15 but the. practice, oh omitting the. 

40 FOR P = I TO Z va/dablz can caaie a p-wblm in 

50 A(P,L) = RND(128)»1 netted FOR. . .NEXT loop*. 

60 SET(A(P,L),2*L) 

70 NEXT : NEXT 

80 PRINT @ 32, "GO!" 

90 FDR L = 3 TO 13 
100 R - RNDC3H2 

110 FOR P - 1 TO Z 

120 S$ « INKEY$ 

122 TI = TI + 1 

123 IF S$= "" THEN 240 

125 RESET (X,Y) : RESET (X,Y+1) : RESET (X-l.Y+2) : RESET (X+l.Y+2) 



GOTO 170 

GOTO 170 Note,: The + won't -i/iou) on 

GOTO 170 the. ^cAeen, but it i& 



130 IF S$ « "+" MEN Y = Y-l 

140 IF S$ = "+" THEN Y « Y+l 

150 IF S$ - "." THEN X = X+2 

160 IF S$ - "," THEN X = X-2 in thvtd 

170 IF X ^ 127 OR X = 1 GOTO 500 

180 IF Y - 45 1HEN GOSUB 1000 

190 IF Y = 1 THEN 20^0 

200 IF POINT(X,Y) 0R r P0INT(X,Y-fl) OR P0IOT(X-l,Y+2) OR 

P0INTCX+1.Y+2) 1HEN 1505 

235 SET (X,Y) : SET (X,Y+1) : SET (X-l.Y+2) : SET (X+l,Y+2) 

240 RESET (A(P,L), 2*L) 

250 A(P,L) « A(P,L)+R 

260 IF A(P,L) >=128 TOEN A(P,L) = A(P,L) -128 

265 IF ABS(A(P,L)-X) < 2 THEN 900 

268 ^(PiL^jL) 

270 jut ii = LL 'man 2500 
*e$ mux : mm: 

300 OTTO 90 
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ASOEROIDS (Continued) 

500 CLS 

510 PRINT "YOU HAVE JUST RUN INTO A BLAQC HOLE, SORRY!" 

520 GOTO 202(3 

900 IF 2*L >= Y AND 2*L <= Y+3 THEN 1505 

910 0000 268 
1000 OS 

1010 PRINT " YOU HAVE CRASI^LANDED , EOT IT'S NOT TOO FAR TO THE RASE." 
1020 GOTO 2020 
1505 FOR B3> 1 TO 40 : RESET (X,Y) : RESET (X,Y+1) : RESET (X-l.Y+2) : 

RESET (X+l,Y+2) : SET (X,Y) : SET (X,Y+1) : SET (X-l,Y+2) : 

SETT (X+l.Y+2) : NEXT : OS 
1510 PRINT "(AP) HUSTON - NASA MISSION OCWIROL REPORTS THE LOSS OF AN 

INTER-PLANETARY SHITCTLE IK ROUTE TO SATURN. THE VESSEL APPARENTLY 

SUFFERED SERIOUS ASTCEROID DAMAGE AND WAS UNABLE TO RETURN TO EARTH." 
1520 GOTO 2020 
2000 CIS 

2010 PRINT "EXCELLENT NAVIGATION! (XM31ATULATICNS ARE IN ORDER." 
2015 PRINT "YOU STILL HAVE" ; (IXr-TI)*10 ; "GALLONS OF FUEL LEFT." 
2020 PRINT : INPUT "PRESS ENTER TO TRY AGAIN 11 ; D 
2030 GCOX) 9 
2500 OS : PRINT "YOU HAVE RUN OUT OF FUEL. YOU WILL CRASH-LAND IN 

APPROXIMATELY 15 MINUIES. WE MKMV EVEN SEND A SEARCH PARTY TO 

PICK UP THE PIECES." : GOTO 2020 



Here is a brief program that clutters tip the screen in an interesting 
fashion. Try it. You mi^ht like it. 

100 POKE 16396,23 

110 CLS 

120 FOR N=14336 TO 15360 

130 PRINT CHR$(PEEK(N)) ; " M ; Don't ovoAlook the. iinat. ; /icAe. 

140 NEXT N 

150 QCFIO 100 

Tfcen type RUN liffiESJand hit several keys at once without using (QQXiBl . 
Try O (S ffl and tJien trv various other keys with some or all of the 

abore - CZI m 

CO CO 

I W 1 1 C i 

To terminate the program, open the little door on the back left-hand side 

of your keyboard unit and depress the button on the extreme left side. 

You may need to turn your coajmter off and then back on again to assure 

proper functioning of all keys. 
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You will find dozens of gamp programs in Softsick) . Qmputronics , 
Creative teiputing , TRS-80 Computing (San Luis Rey, CA), PBPG-80 
(Mil ford, NH) and many other journals mentioned in Lesson 15. 
tone commercial games are rather expensive, costing $25 and more. 
Such games are still cheaper than ones you design, write and debug, if 
your time is valuable. Other tapes are available at a cost so low that 
you can hardly afford the time to type in the program and correct your 
typing errors. People's Software will send you a list of available pro- 
gram tapes (1980 price $7.50 for tape + 50£ postage in U.S. for some 
tapes). Uhey add more to the list all the time and wxil swap you free 
tapes for good original programs which you have written. 

Tape 1 ($8) contains a whole collection of games, some trivial, some 
excellent. Other programs deal with business, banking, bio-rhythms, 
speed-reading, math refresher, etc. Tape 2 ($8) contains some sligjhtly 
more sophisticated banking and business programs, math programs, statist- 
ical programs, etc. Tape 5 ( $8 ) is more of the same. Tape 6 is 
People's Pascal, Version II, and the cost is $23.50, You may or may not 
be ready for the Pascal language. 

You can learn a lot by ordering one of these tapes and then examining , 
adapting and improving the programs to suit your whim. BE SURE 10 SPECI- 
FY WHETHER YOU HAVE LEVEL I OR LEVEL II BASIC. The address is: 

People f s Software 
Computer Information Exchange 
Box 158 

San Luis Rey, CA 92066 

Telephone: (714) 757-4849 (VISA or MASTERCHABGE accepted for phone 

orders) 
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PRACTICE SESSION 7 



1. Improve the treasure hunt program introduced in this lesson. 

2. Either devise a number guessing game of your own or improve the game 
written by a secondary school student in this lesson . 

3. Play Karen Henry's modified Hangman program and then modify it to use 
your cassette tape recorder to provide additional words. 

4. Either write a game-playing program of your own or improve a game- 
playing program written by someone else. Almost any game-playing 
program can be modified and improved. Try out your own ideas. 

5. S ee i f you can determine where the "fuel supply" is stored in the 
ASTEROIDS program. Change the fuel allotment. Also, determine 
whether fuel is used up by "time elapsed" or by "number of keystrokes'/ 
and plan your playing strategy to take advantage of this knowledge. 

6. Modify Bob's program to play REVERE so the player can INPUT a value 
to determine the amount of time the nutters are displayed (the dif- 
ficulty level). 

7. Look in one of the journals listed in Lesson 15 and find a computer 
game. Put the game on your computer, debug and play it. Then, see 
if you can improve it. 
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EDIT INSTRUCTIONS 



The sinplest way to change short lines in a program is certainly 

just to retype it, as we have been doing. 

If you mistyped a program as 



1000 FOR K - 1 BO 17 
1010 PPRINT K; 
1020 NEXT K 



\QJVWH) 



RUN [ENTER) 

The computer will display 



/? SN ERK)R IN 1000 
I READY 
1000__ 

By depressing key |T) the computer will list line 1000 and again display 
the line ntsnber. to facilitate correction. 



?SN ERROR IN 1000 

READ? 

1000 R)R K = 1 BO 17 



You may now either space over to just under the error using the space bar, 
or you may depress g] and the [f] (toe character in error). In 
either case, you will now have 
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'?SN ERBOR IN 10p0 
READY 

1(500 K)R K =1 BO 17 
1000 K)R K =1 _ 

Next, depress [c] for "change" and depress [t] followed by 
to correct the line. 



{ENTER 1 



Type LIST IENTERI to see that the change was made. 

1000 K)R K = 1 TO 17 
1010 FPRIOT K; 
1020 NEXT K 

If you type RON jEWIERl you can go through a similar error detection 
and error correction routine for line 1010, but if you notice the "PP" 
when you LIST it, it is easier just to retype it as 

1010 priot k; \mrm\ 

If you didn't note the error and type TO | ESfTERl , you will obtain 



?&N ERIOR IN 1010 

1010 „ 

Upon depressing [T] the last line will show: 

1010 PPRINT K; 
1010 _ 

If you space the underline (cursor) over to directly under either of the 
letter P's 

1010 PPRuVT K; 
1010 P_ 

and caress key [d| , the computer will display: 

A&10 PPHINTK; 
1010 P!P! 

, 3^? • - indicates the portion that will be deleted when you depress 

lanERj . 



Depress llEMml 

Type LIST |E«TERl and, sure enough, it shows: 
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/L000 K)R K = 1 TO 17 
1010 PRINT K; 
1020 NEXT K 



and RIM 1 ENTER} produces the expected result. 



f 



23456789 10 11 12 13 14 15 16 17 

BEAD? 



You can always go into the EDIT mode to change a line by typing 
EDIT tint numbzK. Eor example, to change the 17 in line 1000 to a 37, 
one merely types: 



EDIT 1000 1 ENTERj 

'The computer responds 

1000 _ 

Depress Q7] , and you will have 



^EmT100^ 

1000 FOR K = 1 ID 17 

1000 — 

Note that the "l" of 17 is the second "l" in line 1000, so depress 

nn and then [s] and then [T] {LitotaJtty, "Seek tiiz 2nd 

chaAacteA. 1 " . J 

The computer displays 



/EDIT 1000 
1000 K)R K = 1 TO 17 
1000 K)R K = 1 TO _ 

Now, express [c] followed by GO which gives 

1000 K)R K = 1 TO 3 



Depressing lENTERl will comple te the line and enter the cha nges 
into the program, as LIST BSTCERl will then show, and HON faffiBH I 
will demonstrate. 



Chapter 9 i 



« ywu, *w wv jucjv^x xjl Ajsm^xt./ jnBx&rcuCt; MtuiUbLi gjLv6S fcUiux cxOucu. 
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EDIT iPEE SUBCOMMANDS AND HJNCTIOI KEYS 
Subcx)mmand/Function Key Function 



EDIT tine no. | ENTER [ 



I enter] 




SHIFT t 




n| Space-Bar 



s 

m 



Q 










where lint no, is a valid line number con- 
taining an instruction. This sends the com- 
puter to EDIT that line. 

End editing and return to Command Itode. 

Escape from subcommand and remain in Edit 
MDde. 

Move cursor n spaces to right. 

Nfove cursor n spaces to left. 

List remainder of program line and return to 
beginning of line. 

List remainder of program line, move cursor 
to end of line, and start Insert subcommand. 

Insert the following sequence of chara cters 
at current cursor position; use bffliXl Q3 
to get out of insert subconmand. 



Cancel changes and return cursor to beginning 
of line. 

End editing, save all changes and return to 
Command Mode. Sane as Ikttoh! 

End editing, cancel all changes made and re- 
turn to Command Made. 

Delete remainder of line and insert following 
sequence of characters; use I SHIFT I [7] to 
get out of this insert subcommand. 

Delete specified number of characters n begin™ 
ning at current cursor position. 

Change (or replace) the specified number of 
characters n using the next n characters en- 
tered. 

Move cursor to nth occurrence of character c, 
counting from current cursor position. 
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W 



Delete ail characters from current cursor 
position up to nth occurrence of character c 
counting from current cursor position. 



Let us try to use some of these EDIT instructions. Type along on 
yo\ir TO-80 to help you follow what is taking place. 

If you have the program line: 

100 PIEASE PRINT THIS LINE. 

and type 



HUN JBmERl 

your screen will show 



?SN ERROR IN 1(90 

HEADY 

100- 



If you depress \h\ the screen will show 



?SN ERRDR IN 100 

READY 

100 PLEASE PRINT THIS LINE . 

100 _ 

By now you realize that you need a PRINT instruction and that the message 
needs to be in quotes if it is to be printed. 



Depress [T] key 



Type 
PRINT " 






Depress 


SHIFT 


t 


Depress 


fxl 





(Nothing seems to happen, but it has put the 
editor into ~*"he in°°rt mods. } 



(which will appear on the screen) 

(Again nothing seems to happen, but this 

releases you from the insert code . ) 

(This moves to the end of the line and puts 
the editor back into insert mode.) 
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Your TO3-80 will now show 



?SN ERROR IN 100 
READY 

100 PLEASE PRINT THIS LINE 
100 PRINT "PLEASE PRINT THIS LINE.. 



Note that the underscore at the end of the line shows you where the next 
character will appear. It is right where you need to insert another quote. 
lb do so, type 



[EJOTB 



Your correction is now complete. 
If you type 



YW | ENTER| 

the program will print the desired message. 

Note: If, back at the beginning when you ran 100 PLEASE PRINT THIS LINE 
and your screen showed 

>RUN 

?SN WBOR IN 100 

READY 



you forgot to give the EDITOR a command by depressing \T\ (or some other 
command key) and just started to type PRINT, an uue;xpected action would 
have taken place. 

The editor would ignore [p] [¥] as unacceptable commands. It would then 
use [T] as the ''insert" conmand and would have inserted N T, 

This is not at all what you wanted. 

EDIT takes a bit of care, but it is well worth the effort. 
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SIMULATION 

^ SImuLATICN is a charade that uses a mathematical model to repre- 
sent life-like experiments. The quality of the simulation is highly 
dependent upon how well the mathematical model represents the actual phys- 
ical or social situation under study. 

Many times it is difficult to compute a result of an actual experi- 
ment, either because the computation itself is too difficult to perform, 
or because the theory is not yet sufficiently developed. Even if the 
theory isn't well developed, it may still be feasible to use simulation 
to study the situation. 

Simulation is one of the most inportant uses of modern computers. A 
simulation is a caricature. As in any caricature, it emphasises the most 
prominent features under consideration and ignores the others. 

We shall not attempt to simulate complex processes here. Instead, 
we shall simulate several rather simple situations — problems which you 
quite possibly could solve without resorting to singulation, but which will 
nonetheless, illustrate the spirit of the gane. 

Ihe heart of most simulation processes is some sort of random number 
generator. 



nrru. ^ »Trn"*o on 



aas axi easy-to-use ranaom oumoer generator which you al- 
ready investigated and used in Lesson 4. 



M)(0) produces a random decimal between and 1, not including 

either endpoint. 
MD(K) produces a random integer between 1 and K, including both 

endpoints, 

PAKfTtQ^ -i o cv^mo-f- -1 raffle i *c?.!ffsr? r\n r>?n <"; +• -*"1-wr\ •w^.i.ttt Ik.^.,-*-? *-,„-.. -? ™ .™ ^,-P ™..-™.—. ^t^^r, -M~.r> 

will be used frequently. It reseeds the random muter gen- 
erator so that the same sequence of BM) ( ) values is not 
produced on each run. 
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Let's begin with a simple program to simulate five rolls of two dice. 
Each die will produce one of the values 1, 2, 3, 4, 5, 6 at random. We 
wish to display the value shown on each die as well as their sum. For 
convenience, the individual dice are represented by R and G (for Red and 
Green, to tell them apart). 

1(5(3 REM DICE THROWING PROGRAM 

11(3 FOR K = 1 TO 5 

12(3 R = RND(6) 

130 G = RND(6) 

14(5 S = R + G 

15(5 PRINT n DIGE SHOW" ; R ; G , "SUM =" ; S 

190 NEXT K 

Get this up and running before you go further. 

Now inted the above in a program that will collect statistics on how 
frequently each sum occurs in 100 rolls. 

10 DIM T(12) 

20 HEM ZEROS T(2) TO T(12) TOR OTTUHE RECORDS OF TOTALS 

30 FOR S = 2 TO 12 

40 T(S) = 

50 NEXT S 

100 HE& DICE THROWING PROGRAM 

110 FOR K = 1 TO 100 

150 R - RND(6) 

130 G - RND(6) 

140 S = R + G 

150 PRINT "DICE SHOW" ; R ; G , "SUM =" ; S 

160 T(S) « T(S) +1 : HEM THIS ACCUMULATES TOTAIS IN T( ) 

190 NEXT K 

300 REM PRINTING OF TOTALS 

310 PRINT 

320 FOR S = 2 TO 12 

330 PRINT S ; "WAS ROLLED" ; T(S) ; "TIMES IN 100 ROLLS OF TWO DICE." 

340 NEXT S 

350 PRINT 

Once the program is running properly, you may change instruction 110 to 

110 FOR K = 1 TO 1000 
to obtain a larger sample size. You will wish to change 100 to 1000 in 
instruction 330 as well. Additional speed may be obtained by deleting 
instruction 150 once you are sure the program is functioning as desired. 
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A BIOLOGICAL SIMULATION 

Example 9-1 

Suppose a biologist takes 100, equal-sized drops of liquid from a 
liter flask containing bacteria which are randomly distributed (i.e., 
no tendency to cluster). Upon testing, it is discovered that 50 of the 
samples are bacteria- free, while the other 50 contain 1 or more bacteria 
per sample,* Assuming that the bacteria are distributed at random among 

100~drop sample? 

The exact answer cannot be determined. However, it is possible to 
obtain a statistical estimate of the desired number. You may or may not 
have sufficient mathematical sophistication to solve this problem 
directly, but it is an easy matter to simulate it. 

Number 100 locations V(0) to V(99), and store zero in each. See 
LeSSua 10 lur audi Li.uiia.1 ialuiiifciLioii uxi subscripted vaj.-iablfcsa . Tixvu 
generate a sequence of random two-digit numbers. Each time the number N 
is generated ( < N < 99) we add one to location V(N). This is con- 
tinued until exactly 50 of the locations contain non-zero numbers and 50 
still contain zeros. At this stage, we have an estimate of the total 
number of bacteria in the 100 samples, either by having kept track, or 
by summing the V(N)'s. 

Of course, the estimate may not be very good if we perform the 
experiment only once. By running it several times, using different ran- 
dom number sequences, we can obtain an average estimate that may be 
reasonably close. The "proper" number of runs is a mathematical problem 
of greater difficulty than we shall discuss here. 

Do you see that this technique might be helpful? Actually, the 
mathematics needed to justify and analyze techniques of this type is 
highly sophisticated, but fortunately for many users , the techniques 
themselves are comparatively simple to use. A flow— chart, of a computer 
program to simulate this experiment is given on the following page. 



* The testing consists of adding a drop of reagent to the sample drop. 
If it is bacteria- free, it will remain clear, but if the sample contains 
one or more bacteria, it turns purple. However, the sanple does not turn 
twice as purple if two or more bacterid btb present so our tsst ^ves 
no idea of the total number of bacteria present . 
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Initialize 



Set starting 
value of 

each sample 
V(l) = p 



X 



Set 
C = J» 
and 
T = p. 



"DIM V(99) sets aside 300 
locations V(0), V(l),... , 
V(99) to represent the 

^100 samples. 



C is used to keep track 

of how many cells now 

contain one or more 

bacteria. 

T = total number of 

bacteria to date. 



Generate 
a random two-digit 
integer 



P 1 N 




Add one bacteria 
j to the Nth sample 



Increment T 
by one 




Surrmarize results 
of this test and 
print it. 



Possibly 
[go back to START] 
land RON it again/ 
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100 DIM V(99) 

110 FOR K* = TO 99 

120 V(K) = 

130 NEXT K 

150 C - ONumbeA ojj CdLU conftuyiing bacUzAla. 

160 T = T=Tptal number o& b&utvwx. 

200 REM GENERATE N: 0<= N< = 99; INCREMENT V(N), 

TOTAL, AND IF APPROPRIATE COUNT. 
210 N = kHD(100)~-1 
220 IF V(N) > THEN 230 
225 C = C+l 
230 V(N) = V(N) + 1 

240 i^r+i 

250 IF C < 50 THEN 210 

300 PRINT "THE 100 DROPS CONTAIN A TOTAL OF' ; T ; "BACTERIA." 
Before expanding this experiment, run it a few times. If it shows the 
same result each time, you may need to add the instruction 
5 RANDOM or 5 RANDOMIZE 

to prevent the program front resetting the random nuntoer generator to the 
same place at the start of each run. After the program is debugged and 
running, you could inked it in a FOB. ...NEXT loop to run it, say, 100 
times and give information on the 100 trials. You might even run xt 1000 
or 5000 times and compute mean and standard deviation of the total number 
of bacteria to be expected in the 10O-drop sample. You migfrt also con- 
sider how to change the program if the number of contaminated drops found 
in the 10O-drop sample were 35 or 70 instead of 50. 



For now merely add: 
S0 G - : REM G WILL HE USED TO ACXXMULATE THE GRAND TOTAL OR 
CUMULATIVE TOTAL OF BACTERIA IN 100 RUNS 

105 FOR S = 1 TO 100 

300 PRINT n SAMPIE";S; "CONTAINS A TOTAL OF"; T ;"BACTERIA." 
310 G « G + T 

32 a NEXT S 

400 PRINT 

410 PRINT " THE HUNDRED RUNS PRODUCED AN AVERAGE OF "• G/100 * " TOTAi 
BACTERIA PER ROT 1 

In Practice Set 9 you will modify this program so that the number 
of runs can be specified by the user. You may wish to think a bit about 
which instruction will need to be changed. Actually, the simulated 
average of 100 runs should be e^qpected to agree quite closely with the 
answer of 69 bacteria obtained using statistical theory. 
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A SWOm BIOLOGICAL SIMULATION 



EXAMPLE 9-2 



Consider a superficially related, but actually different example. 
This time our biologist has a liquid which he knows contains exactly 200 
amoebas (or fish) which again are distributed at random throughout the 
liquid. If he separates the liquid into 50 equal size samples V(l), V(2) 
. . . ,V(50), how many sanples will be amoeba-free? (Also, how many will 
contain 1, 2, 3, 4, 5, 6, more than 6 amoebas?) 

The computation on this is well within your understanding, but that 
is not really the purpose of this example. Let's simulate the problem 
by creating 50 storage cells, each of which initially contains zero 
amoebas. This time generate exactly 200 pseudo-random numbers N, with 
1£N£50. Each time the number N appears, add 1 to the number in location 
V(N). 



S&U at>id& 6paco.. &o/i bamploA V() 
and {final, data collzcXion M(). 
ThU zeA06 50 6 amply* t/(K). 

TkU dUt/vLbatoM tkz ZOO omozbaA 
into ikd 50 AompleA. 



100 DIM V(50), M(8) 

11(3 H)R K = 1 TO 50 
120 V(K) = 

130 NEXT K 

200 K)R B « 1 TO 200 
210 N « RND(50) 

220 V(N) = V(N) + 1 

230 NEXT B 

300 REM ZERO THE M'S TO COLLECT DATA FOR FINAL REPORT 

310 FOR L = TO 8 
320 M(L) - 

330 NEXT L 

(Continued on next page) 
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400 REM COLU'XT DATA ON HOW MANY V-SAMPLES OOOTAIN L AMOKBAS 

410 FOR B = ) TO <*3 

•120 N = V(B) 

425 IF N < 7 'mm 43(3 

428 N = 8 

43(9 M(N) - M(N) + 1 

440 NEXT B 

500 REM PRINT OUT SUMMARY 
' 510 F0& L = TO 6 

R2ft PRINT " THERE ARE " ■ M'L X 

" AMOEBAS " 
530 NEXTL 

540 PROT " THERE ARK " ; M(8) ; " SAMPLES CONTAINING 7 OR MORE AMOEBAS '» 

Once you have the program up and debugged and feel it is running 
well, you may wish to include it in a FOR . . . NEXT loop to run the 
experiment several times and to tabulate the data in a more useful form. 
This is left for you to do. Once again it will be discovered that the 
;;vcr^ of, say 100, runa of such a simulation will agree quite closely 
with the forecast obtained using statistical theory, in which the number 
of amoeba- free samples is 

50(1 " 20Cp which is approximately 50*A « 18.4 

The results of our simulation program correspond very closely to the 
theoretical results. 

A simulation of this type can also produce convincing evidence that 
certain phenomena are not random. Let us assume that in your area P 
persons died during D days of this year. If we assume that deaths occur 
at random, then we are placing P markers into D cells just as we were in 
the previous example, except . P = 200, and D = 50. In this case, the 
agreement between the outcome of the simulation and actual data is not 
good. Indeed, further analysis shows that deaths are not usually distrib- 
uted at random, but rather that a high "successive-day-dependence" seems" 
to exist with alternate high and low death periods. This too can be 
simulated, but the model is more sophisticated. 

DCA1&>LE 9-3 

&w examine another simulation. This is essentially an Ehrenfest 
model with three molecules (see your physics or chemistry teacher). For 
simplicity it is posed as a "Guppy" problem. 

Assume your aquarium contains 3 pregnant guppies. Because of their 
gravid condition you prefer not to net the guppies , but instea/J to place 
a "transfer cage" in the aquariisn. At the start tbe^-e ax^ no "tssuies in 
the transfer cage and three in the aquarium. . As timegoes cm the^guppies 
swim into or out of the transfer cage at random. When all three are in 
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the transfer cage, the door is closed and no further exchange is possible. 
The guppies are then transferred to a maternity aquarium. The number of 
guppies in the transfer cage at various times might be 

0+1 + 2 + 1 -►2-»-l-+0'+l-»-2 + l-»-2->-3 end. 

If you were unusually lucky, it might even be 

0+l-*2 + 3 end. 

The problem is to determine the average number of arrows In the chain 
before all three fish are in the transfer cage. 

Again there exist statistical techniques (for example Markov Chain tech- 
niques) which could be used to determine the desired result, but we pre- 
fer to simulate the process. 

Before examining the solution proposed by your author, at least try your 
hand at flow charting the heart of this problem. 

Here is one possible model . Use a random number generator to 
determine whether the next guppy goes into or out of the cage: If 
RND(0) =.5 put a fish into the transfer cage. If RND(0) >.5 move out 
one, if possible. When all three fish are in the cage, stop the simu- 
lation. 

1(3 REM FIRST GUPPY MODEL SIMULATION 

20 C - : HEM C - # OF GUPPIES IN CAGE 

30 A = : HEM A = # OF ARMS 

90 PRINT "HISTORY="; 

100 R = RND (0) 

11(9 IF R >. 5 THEN 200 

120 REM HERE IF FISH EMERS CAGE R< = 5 

130 A = A + 1 

140 C = C + 1 

150 PRINT C; 

160 IF C = 3 THEN 500 

180 GOTO 100 

200 REM HERE IF FISH DOES NOT ENTER CAGE R> .5 

210 IF C = THEN 100 

220 A = A + 1 

230 C - C - 1 

240 PRINT C; 

250 GOTO 100 

500 REM HERE IF ALL 3 GUPPIES ARE IN CAGE 

510 PRINT "SUCCESS AT LAST" 

520 PRINT A; "ARROWS OR 'SWIM THBOOGHS 1 TOOK PUCE" 

530 PRINT 

After debugging the above model you may enclose it in a program to run 
25 times and give the average number of arrows for the 25 runs at the 
end of the history. 
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The preceding model may or may not represent this situation. Let 
us leave that for a chemist or physicist or guppy breeder to decide. 

Before we show our model to an expert, it might be well to consider 
possible objections he could reasonably be expected to raise, flfamm— 
well, it does seem that the probability of a guppy leaving the cage 
should be greater when there are two guppies in the cage and only one 
outside than when the situation is reversed-doesn • t it? Consider 
another possible model . 

ANOTHER M3QEL 

You may easily discover a better simulation technique than the one 
suggested above. Be sure your next simulation takes into account that 
when the cage contains two guppies, then the next movement is twice as 
apt to be from the cage to the aquarium, as from the aquarium to the 
cage. 

If you have trouble setting up yonr simnla.tinn mrviei. t here is an 
idea. Use three counters , one to represent each fish. If a given fish 
is in the cage, the corresponding counter will contain a 1, otherwise 

it will contain a zero. Two possible histories are; 

(1 ) Fish £1 -+ ()-»■ 1 -*■ 1 -* 0+ 1 -+■ 1 end 
Fish £2-vO~vO-*-0-*0~>0-*l end 
Fish #3-+0-*0-»-l-»-l-*-l->-l end 

which could be represented more compactly as 

000 + 100 -> 101 -+ 001 ■* 101 -> 111 end. 
Another possible history could be 

(2) Fish n + 0+1 + 1 end 
Fish #2 + 1 + 1 + 1 end 
Fish #3 0-vO + O+l end 

which could be represented as 

000 + 010 -* 110 + 111 end. 
Before you continue, write a program or flowchart to similate this model. 
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In this simulation all three fish start outside of the transfer cage, 
i.e., F(l) = 0, F(2) = 0, F(3) = 0, THEN the corrputer generates a random 
number to determine which of the three guppies shall be the next one to 
change places (swim in if out, swim out if in cage). All three are in 
the cage when T = F(l) + F(2) + F(3) = 3. 

The following flowchart summarizes the proposed program 




Initialize 
F(l)-F(2)=F(3)=f 



^ 



PRIST out 



digits / 



Select random 

number 1,2,3 to 

determine which of the 

three digits to change 




\vBim out current digits / 
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Here is one possible program for the previous flowchart - but yours mav 
be just as good, or even better than this one, so don't change yours - 
not yet, at least. 

GOPEY - SECOND MCDEL 
10 REM GUPPY SECOND MODEL SIMULATION 
20 DIM F(3) 
50 REM SETF1 = *2 = F3 = 0ASALL GUPPIES ARE OUTSIDE CACTI 

60 F(i> - 9 

70 F(2) = 

80 F(3) « 

90 PRINT F(l) ; F(2) ; F(3) ; » -> " * 

100 R = RND(0) 

110 IF R > .667 THEN 300 

120 IF R > . 333 THEN 200 

130 HEM HERE <MX IF Fl IS TO MOVE 

140 N = 1 

150 GOTO 500 

200 HEM HERE ONLY IF F2 TS TO OTtf 

210 N - 2 

230 GOTO 500 

^ IE5 IIEnS ONLY IF F3 IS TO I£77E 

310 N = 3 

W REM Nd READY TO MOVE FISH ffi 

510 IF F(N) « THEN 550 

520 IF F(N) « 1 THEN 600 

530 PRINT ''SOMETHING IS WBONG. F(" ; N ;") EQUALS" ■ F(N) 

540 STOP 

550 REM NOTE F(N) INTO CAGE 

560 F(N) « 1 

570 IF F(l) + F(2) + F(3) < 3 THEN 90 

580 PRINT F(l) ; F(2) ; F(3) ; "ENT>-~ALL IN CAGE NOV." 

590 PRINT : PRINT 

595 GOTO 60 

600 HEM MOVE F(N) OUT OF CAGE 

610 F(N) - 

azp GOTO 90 

Try it out. Debug the program and when it is running smoothly include it 
in a program to run the simulation 25 times and print out the aver 00 © 
number of arrows for the 25 runs, at the end of the histories. ~° 

PRACTICE SET 9 

1. Simulate the roll of a pair of dice. After your singulation is up and 
running, enclose it in an over-program that will roll the pair of dice 
1000 times and keep track of how many times the sum shown is 2, 3, 4, . . . , 
12. Compare the output of your simulation with the theoretical outcome, 
which you may either compute or discover in a book on probability, dice 
or gambling. 
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Modify the program of Problem 1 so it assumes dishonest dice have been 



used in which the 



is replaced with a second 



s 3 pe C ;sCthe pr sr of Exmpie 9 - x - s ° the nunber ° f ™* - * 

4. Enclose the program of Example 9-2 in a FOB. ..NEXT loop that will per- 
nut you to run the experiment 500 times and tabulate a sunmary of the data 
obtained. 

5. Explain the purpose of instructions 425 and 428 in the program of 
Example 9-2. Did the given program ever use M(7)? Why do you think 
the author left it so? — 

6. Create a flow chart for your final revised version of Example 9-2 
(Problem 4) and use it to explain what your program does to a friend. 

7. A batch of 80 ounces of plastic contains 100 small metallic impurities 
Assume that the plastic is well mixed and that the impurities are distrib- 
uted at random throughout the plastic when it is molded into 160 half- 
ounce replacement heart valves. If a valve contains one or more impur- 
ities it must be discarded. It is quite possible that anywhere from 60 

to 159 metal- free valves may be obtained from the given batch. Write 
a computer program to simulate one hundred 80-ounce runs and determine 
the average number of metal-free heart valves you would expect on the 
basis of your simulation. 

8. Extend the program of Problem 7 slightly so that in addition to giv- 
ing you the average of the hundred runs, it will also keep track of the 
largest and the smallest number of metal- free valves that were manu- 
factured from a single batch on the hundred runs. 

9. Assume that in Shire approximately 100 Hobbits die in a given 30-day 
period. Write a computer simulation that will print out a table of 
twenty lines of output data, each line representing a 30-day period with 
100 random deaths distributed among the 30 days. Print a reasonably 
clear header before the 20 lines of output data, since the Shire Health 
Department wishes to use your data for comparison with actual death rates. 

10. A well-known and interesting problem asks the question, "In a set of 
thirty persons selected at random, what is the probability that at least 
two of the thirty persons have the same birthday (anniversary date) (i e 
same month and date of birth, but not necessarily born in the same year)?"' 
Hdw would you simulate this problem? 

11. Write a program to simulate Problem 10 assuming 365 days per year. 
After debugging your central program, expand it so you run your simula- 
tion for 50 sets of 30 persons before you print out the approximate 
simulated experimental probability. Compare your simulated result with 
that computed. (See "the birthday problem" in a text on probability if 
you need help.) Open Who's Who to some page and take the first 30 birth- 
days you find for a similar experiment. 
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12. Simulate some simple game of your own choosin * and have the corr^ut^r 
suirmorize the results. Suitable games might be "matching pennies"]" '"putT 
and take", or some very simple dice game but not anything as complicated 
as "Yahtzee" or "craps", 

13. Expand your program for Example 9-1 or Example 9-2 to run 1000 times 
and compute standard deviation as well as mean of the numbers involved. 

14. Debug the first guppy model. After it is debugged and running, 
include it in an "over-program" that will run the model 25 times; print- 
Lug a history each time and give the average number of arrows per run at 
the end of 25 runs. If your runs all produce the same history, there is 
apt to be something wrong with the way you invoked the random number 
generator. Fix it up and rerun the program. 

15. Debug the second guppy model. After it is debugged (and checked 
that it doesn't always give the same history) incorporate your debugged 
program into a program that will run the model 25 tines, print a history 
each time and give the average number of arrows per run. Compare the 
_ ..^^^ A ^^ llfc/UK=x ^. tiiixoix usj yuu xwi iy a uetter represen- 
tation of the problem? Why? 

16. Write a program to simulate a penny toss between two persons if the 
first person starts with PI pennies and the second with P2 pennies, where 
PI and P2 are input for the program. Your program should print out the 
number of pennies each person has after each toss and stop as soon as 
either person has Lost all his pennies. 

.17. Write a program to simulate a ping-pong game with the initial input 
being two nunnbers (PI and P2) which represent the probability of player 1 
and player 2 returning a given shot successfully. Change your model a 
bit to make it more realistic if you can. 

18. Same as Problem 17, but for the game of tennis. 

19. If you were to write a simulation of a baseball game, what variables 
would you wish to be able to read in and thus vary from run to run? 
Discuss a possible simulation with a colleague. Make a rough flow chart 
of your proposed simulation. 

20. The dice game known as "craps" is played by noting the total number 
of points, when two dice are rolled, as follows: 

1. If , on the first roll, you roll 7 or 11, you win. 

2. If, on the first roll, you roll 2, 3, or 12, you lose. 

3. If, on the first roll, you roll a 4 5 6 S 9 or 10 
this number becomes your "point" and you continue rolling 
the dice until you either roll your "point" again or you 
roll a 7. If you roll your point again before you roll a 7, 
you win. If a total of 7 turns up first, you lose. 

Use the computer to simulate a craps game. Have the output show, on one 

lino "f-Ho or-fllpl hi cf nw o<^ i.^l 1 .-,<-, 4-1 -C4 ,*. — : „ , i__,_ „.j~ jli. „ „_.„-_, 

, ■w^^v.uxx t.u.^^v^y d& tnro-i-X cub mc jt.xj.ai, wxii l/jl i,OSfc> Ox tue gailie. 
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21. Rearrange your program of Problem 20 so that you can simulate the 
game of "craps" under the assumption that each die carries the spots 
x_t)-j_4_5_6 ) instead of the usual arrangement. 

22. Write a program to simulate the deal of 52 playing cards with NC 
cards per player and NP players. Your program should read in the 
values for NC and NP and check that NC*NP z 52 before starting to 
SSLJ? 1 ? ""V? d !S 1 . U8inB RANDU is to ^W *ere are 52 cards 
^rJ£ i 1 ™ } t0 » 2 ln P X )f ive - Y ou may wish to use DIMENSION C(52) 
?m 1^! ^u" 6 ° f each C(I)=0 at the start > t^n once that "card 

I is dealt, change the value of C(I) to +1 so that you do not deal 
the same card twice. (This causes hard feelings!) You ray wish to 
f^n? 6 hand ? £ "" aXTay ^^(NC.NP) ^ storing the nuntoers I, but 
tn^ ihl g °f *! re ! ults ' y° u should translate the stored integeis 
f ,L< if" 11 . T* m 2 ^^ ^g^ion. Use your program to deal 
5-card poker hands to 8 players and also to deal 13-card bridge hands 



842 



Page 10-1 



^» 









TYPES OF 
k, VARIABLES 



hM^i/m 



v**? 



SI^QtI 



■ : ^ f ::^^,:::.,i ,::^ 



W 



llll 



■III 



A <fe ^u-- 



VAOTAT2TT? f TVT7n i Q 



BASIC uses four distinct data types tor its variables. Each variable 
may be forced to be any of the four types, either by using DEF statements 
or by the use of special type designators described below. The four 
types are: 

Single Precision Floating-point (6 digits of accuracy) 
Double Precision Floating-point (16 digits of accuracy) 
Integer (between -32768 and +32767) 
String (up to 255 alphabetic or numeric characters) 

The first three types are used for numerical computation and storage. 
String variables are never used in arithmetic. They permit the storage, 
examination and comparison of sequences of letters, numbers, blanks and 
special characters. 

a) Single Precision Floating-point Variables QEFSNG A,B,W-Z 

Single precision floating-point numbers are the type we have been 
using for most of our corranrtation , It is the option which the TStS-80 
automatically elects for you unless you instruct it to do differently. 
Such computation is carried out to (the binary equivalent of ) 7 decimal 
digits of precision inside of the computer, taut only 6 digits of preci- 
sion are printed on the CET screen. 

Since single precision is the automatic default condition, it is not 
necessary to use DEFSNG unless you need to change the precision of vari- 
ables previously defined as INTEGER or DOUBLE PRECISION. 

b) JDoutale Precision Variables 

You are already aware (See Lesson 5.) that it is possible to 
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obtain variables of greater accuracy (16 digits instead of 6 digits) tor a 
variable by inserting 

DEEDBL X,Y 

near the beginning of the program. Ibis causes every variable beginning 
with the letter X or the letter Y to be double precision (17 digits inter- 
nally, 16 digits displayed). It is also possible to indicate a range of 
initial letters in a DEBTBL statement. Pbr example, DEEDBL A,C,S-W 
will cause every variable beginning with any of the variables 'a'c,S,T,U,V, 
W to be double precision unless it carries a special designator such as 
! or % (see below). 

c) Integer Variables 

It is also possible to specify that some variables are of integer 
form rather than the usual floating-point numbers. On short programs it 
is not worth the effort to do so, but long-running programs frequently 
can be speeded up noticeably by inserting 

DEFINT K,L,B-E 

early in the program for those variables you know will always be integers 
in the range from -32768 to +32767. The EEFINT statement given above 
forces every variable beginning with K,L,B,C,D,E to be integer form. One 
of the most important savings is to make integers of the variables used 
in K)R.. .NEXT loops when appropriate. (Obviously, they must not take on 
fractional values in the step si2e.) 

d) String Variables 

It is also possible on your TBS-80 IEVEL II BASIC to define a string 
variable (indicated by annexing a $ to any variable name) used to store 
strings (sequences) of letters and other characters up to 255 characters 
per string. 

Examples A$, C$, GR$, Pl$, P2$ 

You may also def ine regular variables as string variables by using DEPSTR 
but be careful in doing this because if you designate EEPTSTR A,D-G then 
every variable beginning with A,D,E,P,G will be a string variable and as 
such may not be used in arithmetic. Your authors usually prefer to use 
the annexed $ to indicate a string variable. 

Try this little program: 

NEW 1EMERI 
10 CIS 
100 INPUT "FIEASE TYPE YOB NAME" ; N$ 
110 PRINT : PRINT : HUNT ; PRINT contLnuzd on next, pagt 
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im(i» (ioix> 110 



RUN [eNTErJ 



Try it out on your computer. Depress 1 BREAK | to stop the program. 

The output is a bit fast to read isn't it? lb slow (town the pro- 
grain, make it count from 1 to 50G after it prints by inserting 

125 RB Q = 1TD 5f : NEXT Q 

RUN it again. 

Try several different versions of your name. 

Try inserting your social security number or phone nunber instead of your 

name. 

String variables and string instruction are discussed further in Lesson 14. 



e ) Individual Variable xype jUesignators 

It is also possible to make particular variables into integer 
variables by annexing a % sign after it — without changing other vari- 
ables tliat begin with the same letter. For example 

100 K)R X£ = 1 TO 50 
1.10 K)R K%=1 TO 100 

120 PRINT K%; 

130 NEXT Wo 

140 NEXT X% 

will run faster than 



100 


K)R X = 1 10 50 


110 


K)R K - 1 10 100 


120 


PRim K; 


130 


NEXT K 


140 


NEXT X 




x xrs i. prosjTSTu runs in £u,>gu l. 



It is possible to have particular variables as regular single preci- 
sion floating-point variables (6 digit precision) by annexing a ! to 
double precison floating-point variables (IB digit precision). Likewise, 
it is possible to have particular variables as double precision floating- 
point variables by annexing a # to any standard variable nana. Hie type 
designator (% - integer, ! ~ single precision. # = double precision) takes 
precedence over an earlier I£F statement. 
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Variable Type 

Integer Variable 

Single precision 
(6 digit) variable 

Double precision 
(16 digit) variable 



Annexed 
Character 



Examples 



Typical Variables 
lb Be Stored 



A%,X%,K%,NI% -2746,-5,0,1,17,3000 
A!,BX!,XI! 4, -50.73,. 1276,1. 23456E+09 

A#,XI#,C#,BV# 1.234567887654321DKL5 



Note: If you wish to enter or use double precision constants, you can 
save a lot of trouble by placing a D at the end of it. Thus A# = 1234. 7D. 
Also, use D in place of E to indicate the exponent of 10. Thus: 

A - 6.02486E+23 

A# = 6.0248593168521451*23 

Note that B, BS, B!, B# and B$ may all be used in the same program and 
ea ch is a name for a different variable. 



SUBSCRIPTED VARIABLES 

The statement 

DIMX(15), Y(15) 

permits you to have sixteen different X-values 

X(0), X(l), X(2), X(3), X(4),..., X(14), X(15) 

and sixteen different (associated?) Y~values 

Y(0) f Y(l), Y(2),...,Y(14), Y(15) 

in the computer at the same thne . 

Note that 

X(3) and X3 are different variables, and each is different from X. 



Such "subscripted variables ,! are important in statistics, where it is 
conxnon to have sets of related data, say 25 temperatures and the 25 re- 
lated product yields. The following program permits you to input 25 sets 
(T,Y) of temperature-yield data. 

10 DIMT(25), Y(25) 

KW BOB K = 1 TO 25 
110 INPOT T(K), Y(K) 

150 NEXT K 

Note that we have not used location T(0) nor Y($), but we could have, 

!4# 
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The program might be expanded to also compute the average T value and the 
average Y value by accumulating the sum of the T's and the sum of the Y's. 
After the sums are computed, divide each by the number of data pairs 
(here 25) and store the result in T(jO) and Y(J&) 

10 DIM T(25), Y(25) M , M T , . . , + , 

90 T - • Y = Wotd: Tku 4.6 only a &nagmznt o& a 

W K)RK=1TO25 pjiogtuim It : pwnUt >you to juvtzA 

110 mPUT T(K), Y(K) da * a *■"*? T l > Ztl { ! 'i^ d °^ 

mp T = T + 'L\&) — r w ' ~'^ =>• ' 

13(3 Y = Y + Y(K) 

15$ NEXT K 

16(9 T(jJ) - T/25 

170 Y(0» « Y/25 

Note tliat T and Y were used insids the TOR.. .NEXT loop rather than using 
T((5) and Y(0). Tnis saves conputer time. Most expert, programmers consid- 
iir T_t; tTQiinh 1 ? to use a subscripted variable T .vhose subscript does not ch^npe 
inside of a FOR. . .NEXT loop. "* 

If desired, the program could be extended to compute standard devia- 
tion, correlation, mode, median, and other statistical measures. If you 
are familiar with statistics, you can extend the program yourself. You 
can even compute a "line of regression" or a "curve of regression" for the 
given data. 

Our purpose was to introduce subscripted variables, a very handy tool 
for solving many problems. 
ARRAYS 

It is also possible, in Level II BASIC to store arrays (matrices) 
of numbers (or letters or syntols). Consider a set of class grades for 
20 students on each of six tests. Although it is possible to store stu- 
dent names, it is simpler to use student numbers instead. 

The 20 by 7 array is: 

Col Col 1 Col 2 Col 3 Col 4 Col 5 Col 6 

Student Test Test Test Test Test Test 

T-n ^« i O O A R a 



Row 1 


12516 


86 


74 


92 


71 77 


Row 2 


12617 


57 


62 


71 


69 79 


Row 3 


77989 


94 


98 




dOYitinuzd on n 



64 
85 
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How 20 21201 



38491 



87 



93 



91 



92 



We represent it in the conputer by 
DIM G(20,6) 

Ibis gives an array with 21 rows and 7 columns, for storage. We shall 
not use row for the storage data in this problem, but shall use column 
to store the student's ID Number. 

The 94 grade on test 1 of student number 3(H> = 77969) is located in po- 
sition (3,1). Position (2,4) contains the grade of 69 for the 2nd student 
(ID = 12617) on the 4th test. 

The following program will read in the grades for the C-th test , to be 
supplied by the teacher. For C = 0, the student H3# may be typed in, if 
desired. 

REM PBOGKAM TO INPUT QUIZ GRADES KHft CLASS OF 20 STUDENTS 

DIM G(2p,6) 

INPUT "T7FE TEST NUMBER PLEASE"; C 

FOR R = 1 TO 20 

PRINT "TYPE (HADE W TEST" ;C; "K)R STUW1T #": G(R 0) 
INPUT G(R,C) ' 

NEXT R 



1 

W 

110 

120 
130 
140 



The following program will display the entire array of scores, as 
well as confuting and printing the average grade on the six tests for all 
20 students. It assumes the data is already stored in the computer (from 
tape, or by hand, or ??). Ibis program may be combined with that above. 
If no grades are entered, the computer will print zeros. 
2 REM PROGRAM TO DISPLAY AND AVERACE STUDENT OftADES ALREADY IN THE 

0CMTOER 
10 DIM G(20,6) 
200 K)R R - 1 TO 20 
210 T = 

220 PRINT "STUDENT #" ;R, "I.D.#" ; G(R,0), 

230 TO C = 1 TO 6 

240 PRIOTG(R,C); 

250 T = T + G(R,C) 

260 NEXT C 

270 PRINT "->"; T/6 

280 NEXT R 
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Examine the program to understand how it works, if you have any 
questions, ask your instructor. 

Note the use of indented instruction inside each FOE. . .NEXT loop. This is 
not irrportant as far as the corrputer is concerned, but is a very helpful 
practice to help humans to perceive the structure of your programs . Your 
author sincerely recommends the practice. 
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We have collected a few tips and cautions that you may never need, 
tut that you still may find helpful. 

TIPS 

Don't let anyone spill beverage on or near your TRS-80. The only 
way to do this may be to forbid beverages near the computer. It is up 
to you, but a spilled Coke portends real grief forever afterward. 

If you are plagued by double letters in your typing, it is because 
dust and dirt are forcing your TRS-80 to get multiple signals on a single 
key stroke. LEVEL II BASIC will have this problem more frequently than 
LEVEL I, since LEVEL II stores key strokes internally (great for fast 
typists). Keyboards manufactured in the 1980 ! s seem to be less plagued 
with keyboard bounce than earlier TRS-80 1 s. It is possible to remove the 
key tops and gently clean the contacts, tut it is a lot easier to use the 
KEYBOARD DEBOUNCE (KBFIX) program furnished with LEVEL II TRS-80. It is 
a good idea to use a dust cover on the keybroad providing it is turned off 
(else heat may build up). 

Begin your programs in line 100. Use lines 1 to 99 to identify your- 
self and program rather completely, as well as giving credit to any source 
you used before modifying your program. 

If you would like your REM to stand out even more than it does by 
inserting 5 blanks after the HEM, try depressing Q] after typing REM 
and then type six or eight spaces before your KFMark. 

ERROR OS (out of string space) can frequently be remedied by insert- 
ing CLEAR n with a larger n value (say 100, 500, or MEM/4). The default 
value is CLEAR 50 whenever you turn on the TO5-80 or type NEW 1ENTERI . 

If you use a BASIC program from a book or magazine, watch for RND(l) 
statements. Seme BASIC'S use RND(l) where the raS-80 uses HND(0), namely, 
to generate a random decimal between and 1, 
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If you type LUST instead of LIST and do not have a line printer 
turned on, the TRS-80 will lock up. Open the small door at the back left 
of the keyboard unit and push the snail round reset button. 

The TRS-80 is designed for most room temperatures , but if you have 
clutter around it, that prevents air circulation. If you must use it in 
a hot place, put a couple of l?clx5~inch blocks under the feet to permit 
extra air circulation. 

FrugraiViw Lhu.1 piuuuct? a full screen of output can be e nded wi th 
a tight loop (such as 9999 GO ID 9999 ) to prevent having /ready 
break into the screen. Use lOTSAKl to get out of a 
tight loop. 

If your program seems allright,~~but you~get_smSN ERROR that you 
can't identify, you may have depressed the |SHIFf| key while typing that 
line. (I tend to do this on (JO . ) Retype the line in question, watch- 
ing your [SHIFT B key carefully. 

If you are an electronics buff, by all means get the TOS-80 Micro - 
computer Technical Reference Handbook (1980, $9.95, Radio Shack). It 
has wiring diagrams you'll want to have. Remenber, if you open the 
TRS-80 case, your guarantee is void. 

Use CLOAD? to verify your Level II BASIC programs. 

Double precision variables are not acceptable in KB. . .NEXT loops. 

If you have experienced problems with double precision variables not 
converting correctly (TO3-80 does not use decimal notation internally), 
it may be because you have not entered them correctly. If a double pre- 
cision variable has fewer than 7 digits when typed, follow it with the 
letter D. 

Run this to see what is meant. 

100 S = .1 
110 D# = .1 
120 PRINT S,D# 

Your output will look something like 

.1 .1(ZWWW^4^51161 

If you change 11(9 to 

up m = .id 
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Static electricity can play havoc with your TRS-80 and cas- 
settes. If low humidity and carpet friction produce static electricity 
shocks in your computer roan, do something about it. Remove the carpets 
or put down a non-static-producing rubber or plastic pad and increase 
the humidity in the room, if possible. 

Don't force the llOV-plug on your video display into a socket or ex- 
tension cord that is not designed to preserve polarity. One blade on the 
video llOV-plug is larger than the other— in this way, the video display 
chasis is grounded through the power cord. If you use an extension cord 
or multiple-outlet plug that does not preserve this polarity, you can get 
into trouble. 

No doubt you have already discovered the HCBIZCOTAL HOLD and VERTI- 
CAL HOLD controls located on the rear of your video display. Once set, 
it should not be necessary to readjust them very often. 

The BRIGHINESS (B) and OCKTOAST (C) controls are located on the front 
bottom right of your video display. Keep each in about the middle of the 
range To lengthen tube life, DO NOT ADJUST TO MAXIMUM BRIGHTNESS OR 
OOmHAST. It may burn your tube if the display remains fixed. 

Turn OFF the video display whenever you leave the computer, even if 
you leave the computer running. 

Electrical interference from an elevator or other motor, a faulty 
flourescent ligfrt or even the switch in a typewriter are not apt to inter- 
fere with your TRS-80 unless you have added disk to your system. If you 
are considering disk or other expansion interface items, you should add a 
couple of line filters at your power source as well. 
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SAVING MEMORY SPACE 

If you have only 4K of memory, you may find that unwelcome OM ERROR 
message signifying all of the available memory has been used or reserved. 
Ihere are several things you can do to conserve memory space. 

Cut down on the size of any arrays used. 

ments. 

Use integer variables whenever possible — in BDR K%> = 3 TO 300 , 
for example. Use the same variable in all FOR . . .NEXT loops that 
are not nested. 

Delete unnecessary parentheses in arithmetic statements. 

Cue down on both the number and length ox string vai^iuules. 

Delete unnecessary spaces in all statements. 

Eliminate extra variables, reuse variables no longer needed, keep 
variable names short. 

If necessary, also delete REM statements. 

ERBOR CM can sometimes be cured providing you are using no string 
variables by inserting CLEAR at the beginning of your program. 

OS ERROR frequently seems to be the result of a missing CLEAR n 
statement, where n is greater than 5p. Try CLEAR 20p or 
or CLEAR MEM/4. 
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SPEEDING IIP PROGRAMS 

Although computers are fast, they do run into tine difficulties on 
long programs. Usually the solution is to think hard about the algorithm 
being used. It is frequently possible to devise a much faster algo rithm 
once the problem is fully understood. There are also programing tech- 
niques, known to most experienced coqputists, that save considerable time. 

Don't use subscripted variables inside of a K)R...NEXT loop unless 
^ e subscript is changing . 

Combine several statements per line (separated by colons). 

Use integer variables in SOR. . .NEXT loops that have integer step 
sizes. 

Define the most coimoily used variables first—this puts them near 
the top of the variable table and saves look-up time if many 
variables are involved. 

Don't recompute values needed repeatedly; store them instead. 

(This is particularly vital inside of nested K)R. . .NEXT loops. ) 

Use small data sets and short FDR. . .NEXT loops in debugging long 
programs. fo 

Use faster forms whenever possible. 
B + B is faster than 2 * B. 

.2 * C is faster than C/5. (Avoid division when possible.) 
D*D*D*Dis much faster than D + 4. 

Don't recompute trigonometric or log functions for the same value. 
To evaluate Y = 5 sin 4 X -I- 8 sin 3 X - 2 sin 2 X 
use S = SIN(X) 
Y = ((5 * S + 8) * S - 2) * S * S. 

Use POKE graphics. Ibis can cut graphics time to 1/5 of SET(X,Y). 

Use stored constants (a letter like B or P) rather than numeric 
constants in the statements that are executed frequently. 

Probably the most important thing you can do to make programs run 
fester is to analyze which subpart of your program uses the greatest 
amount of time and then rewrite that portion as a subroutine in Z-80 
machine language. Call the subroutine using the USR(X) routine. However 

T^l/ff^n oT^ ^ ther lBn &™% e - See Chapter 8 of your TRS-40 ' 
Level II BASIC Reference Manual under U3R(X) and a text on Z-80 machine 
t aXi ^ g ^^ B3dX0 r Shack has a book ' 'raS-SO Asaaftiy Language Pro gramme 
byMn Barden, Jr., (Cat. #62-2006 ) which will be helpful if yoTare^f ^ 
ficiently interested to wish to learn Z-8Q chip language. 
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We have discussed, under EDITING, Lesson 8, the appearance on the screen 
of the message 

?SN ERROR IN 10(90 

LEVEL II BASIC also has other messages that help you discover errors in 
a program. The following ERROR messages are among those you may encoun- 
ter. (If you have a disk on your system— consult the appropriate refer- 
ence manual for additional messages.) 

EXPLANATION OF ERROR MESSAGES 

BS Subscript out of Range: An attempt was made to assign a subscripted 
variable or a matrix element with a subscript beyond the DIMensioned 
range . 

CN Can't Continue: A OONT was |EJNrTER| ed at a point where no continuable 
program exists, e.g., after program was ENDed or EDITed. 

ID Uedimensioned Array: An attempt was made to DIMcnsion a matrix which 
had previously boon dimensioned by DIM or by default statements. It 
is a good idea to put all dimension statements at the beginning of 
a program . 

FC Illegal Function Call: An attempt was made to execute an operation 
using an illegal, parameter. Examples: square root of a negative 
argument, negative matrix dimension, negative or zero LOG arguments, 
SET (X,Y) with one value out of bounds, etc. Or USR call without 
first POKEing the entry point. 

H) Bad File Data: Data input frcm an external source (i.e., tape) was 
not correct or was in improper sequence, etc. 

ID Illegal Direct: The use of INPUT as a direct ocrmiand, without a 
statement number. 

L3 DISK BASIC only: An attempt was made to use a statement or function 
which is available only when the TRS-80 Mini Disk is connected via 
the Expansion Interface. 

IS String Too Long: A string variable was assigned a string value which 
exceeded 255 characters in length. Break it into two or more strings. 

3&) Missing Operand: An operation was attanpted without providing one of 
the required operands. 

W NExT without FOB: NEXT is used without a matching FOB statement. 
This error may also occur if NEXT vcvUablt statements are reversed 
in a nested loop. 

155 
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NR No RESUME. End of program reached in error- trapping mode. 

CD Out of Data. A READ or INPUT # statement was executed with insuffi- 
cient data available. DATA statement may have been left out or all 
data nmy have been read from tape or DATA. 

OM Out of Memory. All available memory has been used or reserved. This 
may occur with very large matrix dimensions, nested branches such as 
GOID, GOSUB, and FOR. . .NEXT loops, or with large strings. Usually the 
program can be rewritten so that it uses less memory. See separate 
suggestions. 

OS Out of String Space. The amount of string space allocated was ex- 
ceeded. Usually this can be fixed by starting program with CLEAR n 
for some n > 50 or by using CLEAR MEM/2. 

OV Overflow. A value input or derived is too large or small for the 
computer to handle. 

RG RETURN without GOSUB. A RETURN statement was encountered before a 
matching GOSUB was executed. 

RV? RESUME without ERROR. A RESUME was encountered before ON ERROR GOIO 
was executed. 

SN Syntax Error. This usually is the result of incorrect punctuation, 
open parenthesis, an illegal character or a misspelled conmand. 

ST String Formula Too Complex. A string operation was too complex to 
handle. Break up operation into shorter steps. 

1M Type Mismatch. An attempt was made to assign a non-string variable 
to a string or vice-versa. 

UE Unprintable Error. An attempt was made to generate an error using an 
ERROR statement with an invalid code. 

UL Undefined Line, An attempt was made to refer or branch to a nonexis- 
tent line. 

/P Division by Zero. An attempt was made to use a value of zero in the 
denominator . 
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THS-80 Lsvel II BASIC has an unusual extra "goodie" you may find 
handy. Commands such as RUN, NEW, LIST, DELETE 100-499, and similar 
keyboard oomnands can be inserted into and executed from a program. 
Try the following programs to get the feel of the idea. 

109 CLS 

110 FOR K=l TO 30 
12(3 PRINT K; 
130 NEXT K 

140 PRINT 

run 

Iter, add 

150 RUN 
and RUN it again. 
Now, change 150 to 

150 LIST 
and RUN it again. 

Depress BREAK and change 150 to 

150 DELETE 109 
LIST the program. RUN it, then LIST it again. Note that 109 has dis- 
appeared. Change 150 to 150 NEW, 
and RUN it again. 

It seems rather straightforward until you discovered that if you re- 
enter the program 109 to 140 "and add 

150 LIbT 
160 RUN 

the program never gets to 160. Most commands ( RUN is an exception.) send 
the computer back to READ? mode instead of continuing the program. You 
can overcome this by using 

PRINT @ 970, "PLEASE TYPE HUN (ENTER). " 
^ ust before the DELETE or LIST ccnmand. 

Try the DroeraH) OH tbp' fnllcmiiricr nrsr^ 
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109 as 

110 FOR K«l TO 30 

120 print K; 

130 NEXT K 

140 PRINT : PRINT 

150 PRINT "PLEASE TVPE RUN (ENTER)" 

160 DELETE 109-160 

165 PRINT : PRINT : PRINT 

170 PRINT "WHEN THIS IS LISTED NOW, LINES 109 TO 160 WILL HE MISSING/* 

180 PRINT : PRINT 

190 LIST 

RON 1 ENTER | 

Advanced programmers use this technique to get extra space when 
OS ERB3RS plague them. Early parts of the program can be deleted before 
the string variables are used. A sarrple might be: 

10 
100 



499 

504 REM TRANSITION TO GET MORE STRING SPACE 

505 as 

510 PRINT : PRINT 

515 PRINT "PLEASE TYPE RUN(ENTER)" 

520 IELETE 10-499 

600 REM MAIN PROGRAM USING STRINGS STARTS HERE 

610 CLEAR 5000 : DIM B$(40), M$(50) 

620 PRINT "THIS IS THE MAIN STRING PR0C3&M." 

700 LIST 
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| I, EXTENDED 
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XNsrRocTiofv| 



Ira 
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xou ajne atreauy xaiiaxxax- wxui tiie xust^uc cxcsi 

print 

which gives a blank line and 

PRINT A,B,C,D 

which gives wick? (4 column) spacing where a comma is used and close-packed 
spacing where a semicolon is used. 

PRINT A; B,C,D 

is also familiar (see Lesson 2). 

BASIC has several other useful instructions including 

PRINT TAB( ) 
PRINT USING A$,K 
PRINT SrRING$(K, n # M ) 
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KXTEMED PRINT INSTRUCTIONS 
PRINT TAB (<ixp*CA-AU»i) 

The "expfuiAtxlan" may be a constant or a variable or a conputed 
expression which is an integer between and 255. This "tabs" the cursor 
to the indicated position. It is not possible to move the cursor to the 
left by tabbing. If the cursor is already to the right of the TAB ex- 
pression, the TAB is ignored. Any indicated printing occurs at the place 
where the cursor is. 

Try the following: 

100 A = 3 

110 B - 5 

120 mim TAB(A) A; TAB(B) B; TAB(A+B) "A+B"; TAB(35) "35"; 
TAB(10*B+-A) "Z" 

on your TKS-80. 

The TAB( ) function is particularly useful in graphing and the 
creation of special tables and forms. 
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PRINT USING 5Uuuj;v'<-<X((C. 

It is possible to format the output in a more precise maimer than 
is available on the ordinary PRINT instruction employing ; , and " 
or even the PRINT @ instruction. 

The PHIKT USING instruction makes this possible. Try the following 
program. 

Uft CLS 

966 PRINT "PIEASE TYPE YOUR NAME, INCLUDING MIDELE INITIAL" 

9U& INPUT N$ 

U666 FOR K = 917 TO 1130 STEP 13.25 
ifijjft PRINT "PAY TO THE ORDER OF "; N$; " "; 

1626 PRINT USING "**$###.## DOLLARS"; K 

l/)56 NEXT K 

In instruction W20, the ''**$##?.## DOLLARS" gives the iormat in 
which the material is to be printed. The **$ says to fill up any space 
before the first digit with asterisks and then a $. The decimal point 
followed by two #~signs ( .##) indicates exactly two places beyond the 
decimal point are to be printed. Note the change in number of * where 
the amount changes from $996.50 to $1009.75 in the output when you run 
this program. Consult your TRS-80 Level II BASIC Reference Manual , Chap- 
ter 3 for additional information. 

PRINT USING statements may use any of the following field specifiers; 

Numeric Character Function Example 

# Numeric field (one digit ### 

per #). 



Decimal point 


ffff ■ ifffff 


position. 




Print leading or 


+§.### 


trailing sign (plus 


#.###+ 


for positive num- 


""TT ttFtTTr 


bers, raimis for 


TT a ttft W """ 


negative numbers). 





Print trailing sign $##<,##- 

only if value print- 
ed is negative. 

Fill leading blanks **###.# 

with asterisk. 

IContlm&d mxt page) 
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Numeric Character 
$$ 



*#$ 



t f +*h 



Function 

Place dollar sign 
irrrediately to left 
of leading digit. 

Dollar sign to left 
of leading digit and 
fill leading blanks 
with asterisks. 

Exponential format, 
with one significant 
digit to left of 
decimal. 



Example (coyit< muid) 






#.######**H 



String Character Function 



%&paceA% 



Single Character 

String with length 
equal to 2 plus 
number of spaces 
between % symbols. 



Example 
I 

% % 
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PRINT STRING^ (K /'CHARACTER" or NUMBER) 

"This is very useful In graphing since it returns a string of K 
ehnraotors each of which is the character enclosed in quotation narks. It 
is also possible to use the ACSII mirtier associated with a given charac- 
ter. Tho value K must be between p and 255, as must any number used for 
ASCII characters. See Lesson 4 for list of ASCII equivalents. 

PRINT STRINGS (25, "#") produces 

mm tttm#ffl#fflmmmMm# (25 of them) 

on your screen. 

o 

The following program plots the number K followed by a string of Kr sym- 

bols: 

1W OB 

UP K)R K = 1 TO 10 

12,0 L = K*K 

13p PRINT K; STRIEG$(L f n %") 

135 PRINT 

140 NEXT K 

150 GOTO 150 

Try it on your screen and see what happens. Tnen change the symbol in- 
side the " " to some other symbol of your choice. 

lesson 4 included a program to generate a bar graph (histogram). 

5 OUEAR 200 

1.0 CLS 

100 PRINT @ 6, "GRAPH OF ENROLLMENTS AT WE UNIVERSITY OF CMJWm" 

110 READ Y,D 

115 IF Y < THEN 1.15 

120 DATA 1940,21,1950,28,1960,32,1970,51,1980,59,-1,-1 

130 PRINT Y; STRING$(D,143) 

1.40 GOIO 110 

The instruction 

5 CLEAR 200 clears all variables and sets aside 200 bytes for string 
variable use. This is maybe more than we need. 

110 HEAD Y,D reads two values from the DATA string. 

Instruction 

130 PRINT Y; STRINGS (D, 143) prints the current vslve of Y (read in Ufl[ 
from DATA) and follows this with a D-long string of the symbol ]H 
having ASCII equivalent of 143 which is m 
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The sane bar graph results as in the lesson 4 program using SET (X,Y): 
SET (X,Y+1), but in much less time and with a shorter program. The DATA 
statement is also easy to change in the new program. 

Note that if your D value is greater than 59, the bar will be continued 
on a second line. However, D may be as great as 256 if desired, but 
you'll need to use CLEAR 250 if D is that large. 



self 



Here is another program that may interest you. Try it out your- 



100 CLEAR 63 

ii0 as 

120 K)R Y = TO 960 STEP 64 
130 PRINT @ Y, STOING$(63,;L91) 

140 NEXT Y 

150 GOTO 150 

After you see what it does, run the same program with 100 changed to 
100 CLEAR 60 ' x Muj did you gU OS ERROR, U you did?) 

You may also wish to change to 100 CLEAR 100 and then change STRING? 
(63,191) to STRING$(64,191). See if you can e^qplain the unexpected 
dark band at t!*e bottom of the screen when you RUN it. 

Sometimes Lt is hanay to be able to clear only a portion of the 
screen. Try this: 

109 CLS 

110 BOR K=l ID 205 
120 PRINT K; 
130 NEXT K 

140 PRINT 

200 PRINT @ 256, CHR$(30); "THIS IS THE NEW LINE IROM SIMT 200."; 

300 PRINT @ 512, OIR$(30); "THIS CAME *BQM STATEMENT 300."; 

500 GOTO 500 

RUN 



Depress [BREAK [ to regain control. 



After you have RUN this program a couple of time with the semi- 
colon at the ends of lines 200 and 300, remove one of the semicolons and 
RUN the revised program. 
Investigate what happens if you insert: 

299 PROT CHR$(23); 

You may also wish to use CHR$(31) in statement 300 to see what happens. 
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Mora Graphics 

Lesson 4 provided an introduction to graphics that may be adequate 
lor your needs. How?ver, you should know that the T^S-SO has many graphic 

abilities In addition to the 



<XS 

SETT (X,Y) 
RESETT (X,Y) 
POINT (X,Y) 



CHR$(N) 



clears screen 

turns on rectangular spot at (X,Y) 
turns off rectangular spot at (X,Y) 

tests to see if point (X,Y) is turned on, if so it re- 
turns a logical TRUE (-1), otherwise a logical FAI&E (0). 
C&i\ be used in IF instructions (See Lesson 14, for details.) 
on logical operators. 

produces actions, letter or symbol that corresponds to 
code N where < N < 255 



For example: the operator ASC(symbol) is the inverse of CHK$(N). It 
produces the nuneric (ASCII) code corresponding to the symbol in paren- 
theses (the first symbol in the string, if the parentheses contain a 
string of more than one symbol). This is used in an excellent cipher pro- 

^rram consictered in Lesson 14 of this ts^t 



In Lesson 4 vqu ran the folic 

19 CLS 

100 FOB K = 33 TO 191 
110 PRINT K, 

120 FOR L = 1 to 45 

130 PRINT CHR$(K); 

140 NEXT L 

150 PRINT 

170 NEXT' K 

200 GOTO 100 



" r *ro fT r Qr n * 



H tjoiui VRS-%0 6hotM both \xppvi and 
lowest caA& IttteAA (a modification 
you may obtain, L& needed) CHR${K) 
fan. K~6$ to 90 will display uppvi 
caAe. t often* A to 1 wkclz K*96 to 
127 displays the. conAeA ponding lowvi 
caAe (SHIFT) hymbolA cowteA ponding 
to @,Atol,*A . -«- , •*■, — . Mo6t TPS- 
S0*6 display only upp&i caAe lett&tA 
§qk both nangeA. 



!6S 
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Run it again now. Change instruction 100 to 

100 FOR K - 20 TO 255 

and run it again, after turning to the table given in Lesson 4 that 
discusses the effect of CHR$(N) for various N values. 

The pixel-blocks that appear corresponding to 

PRINT Offl$(K) 

for K between 129 and 191 are particularly useful in speeding up graphics. 
At first glance they may seem haphazard, but actually the choice of num- 
bers associated with the graphic you wish to light up is both logical and 
easy to use, once it is explained. Each large block (letter & space be- 
tween lines) is divided into six small rectangles (pixels) 



The individual pixels are numbered. 



1 


2 


4 
]6 


8 
32 



To light up the pixels numbered 1,2,8 and 16, 




add the sum of pixels used: 1 + 2 + 8 + 16 = 27 



and add that sum to 128 giving 

128 + (1 + 2 + 8 + 16) = 155. 

The instruction 

PRINT CHR$ (155) 

will light up the 



desired pixels much faster than 



will SET (X,Y). 
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You may use the Instruction 

POKE addicts^, ptKtl numbcA 

where addA£A6 is 15360 plus the number between and 1023 which locates, 
the position (see Lesson Four ) of the 6~block under consideration. 
Hie pixeZ numhth, is the muter (128 + (sum of oesired pixels)). 

For example: 

The entire 6-block i 9 has sum 63 so 128 + 63 = 191 'is 



1 


2 


4 


8 


16 


32 



the pixel number to turn on the entire 6-biock. 

The program 

100 CIS 

110 FOR Xj= 15300 TO 16383 

120 "POKE X, 191 (See LeA6on 16 fan POKE in6&iuc£ton.) 

130 NEXT X 

140 GOTO 140 

RUN 

will "white out" the entire screen in record time. It can be combined 
with: 

140 X = 2 + RND(121) : Y =* 1 + KND(43) 

150 RESET (X,Y) : RESEF(125-X,Y) 

160 RESET (X,46~Y) : RESET(125-~X,46-Y) 

170 GOTO 140 

to produce a reverse art pattern, if desired. 

Try son*e additional exoerimsnts with the above 1<^~-14^ orc^rsm such 
as combining it with 

140 PRINT @ RND(1000), "HI your name"; 
150 IF RND (0) >.01 TiSm 140 ELSE 100 

or some other experiments of your own design. Remember as long as you 
keep beverages away from the TRS-80 and do not abuse it, you probably will 
not harm it by your programming experiments — and the best way to learn 
oonputing is to com p u te and then to t hink about the results before 
continuing . 

If you need to insert a variable number of blanks in a line 
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PRINT CHR$ (192+k) 

will insert k 

This may be used to good effect in graphing by using 

PRINT CHR$ (192 + X); "+" 

as in the following program to graph a portion of X = .062Y 2 which lies 
in the first quadrant . 

104 PRINT "GRAPH OF X = .062*Y*Y M 

110 Y = 30 

120 X = INT(.062*Y*Y) 

130 PRINT X; Offi$(192 + X); "+" 

150 Y = Y -2 

160 IF X >2 THEN 120 ELSE 160 

Note that it will be necessary to depress [BREAK! to get the computer ! s 
attention after the graph is plotted. (WHY)? 

If we had not created the "ti^it loop" by using ELSE 160, then when X 
got to be < = 2 the display screen would have inserted 



READY 



onto the screen and scrolled the top off the screen. If you are not sure 

of this, 

change 160 to 160 IF X >2 THEN 120 

and reRUN the revised program. 

The second edition of the I£VEL II BASIC Reference Manual (appendix C/6 ) 
shows a map of the graphic pixel blocks and their corresponding numbers . Both 
the character spacing (16 lines of 64 characters )numbered from to 1023 
and the pixel locations for use with SET (X,Y) (48 lines with <Y <47 of 
128 pixels with <X <127) are shown mapped onto the grid. In each case 
the metering starts in the upper left corner with or (0,0). 



If you remember the diagram on the right 
and use 128 + (pixels to be lighted), you 
will not noed the reference. 



1 


2 


4 


8 


16 


32 
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let's re-examine the program of Lesson 4. 

m CIS 

ljty INPOT "PIJiASE TYPE YOUR NAME"; N$ 

liift printiprintipmnt 

120 PRINT "HELLO ";N$;". ": PRINT" 



I HOPE YOU ARE ENJOYING THIS 
COURSE." 



125 FOR Q = 1 to 500:NEXT Q 
127 PRINT QIR$(23) 
130 GOTO 110 

Line 10 clears the screen, 

iaxne x.%jm pFxn l.s wu&c xs xn Quoi.es snu men awax us your xnpUu t,o s i,ring 

variable N$. 

Line 1.10 prints 3 blank lines (i.e., moves the next output line down 

3 rowsX 
Line 120 prints HELLO, followed by whatever you typed into N$, and then 
on the next line prints 

I HOPE YOU ARE ENJOYING THIS COURSE, with a nine-space indentation, 
if you allowed nine spaces. 

Line 125 is a "timewaster". It forces the computer to count from 1 to 
5$0 by ones before continuing. 

Line 127 changes all output to double-size until the next CLS instruction 
is executed. This eliminates half of the material currently on the 
screen, but new material will be printed in double-wide characters. 
Line 13j6 sends the pro^rraip. back to line 11/) to orint three HSDre blank 



until you depress the BREAK key to stop it. 
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Thut wasn't (<x) liard was it? 

Play around a bit with the messages in line 120 and chantfc- them to suit 
your whlni — be sure to include N$ as part of your output— note that N$ is 
a variable and must be outside of the quotes, separated from the quotes 
by semicolons. 

String variables use up quite a lot of memory space— not as much as 
on many computers, since the TOS-80 LEVEL II string variable uses only 
as much space as it needs-— i.e. short strings use less memory than long 
strings. On many computers, string variables require the same (maximum) 
space even if not all is needed. If you have a 4-K Level II, you may run 
out of memory if you use many variable strings. The following program 
is designed to create very siaplistic sentences and runs on 4~K. Note 
that string variables may be dimensioned like floating-point variables. 

2 CLEAR 1000 

5 CLS 

10 DIM N$(7), V$(2) 

100 PRIMP "PLEASE TYPE 8 NOUNS." 

110 FOR K = to 7 

120 PRINT K + 1 , : INPOT N$(K) 

130 NEXT K 

200 PRINT "TYPE 3 VERBS. PIEASE USE DIFFERENT TENSES." 

210 INPUT "1 ";V$(0) 

220 INPUT "2 M ;V$(1) 

230 INPUT "3 M ;V$(2) 

500 PRINT "THAT IS FINE. NOW I'LL CREATE SOME SIMPLE SENTENCES." 

600 PRINT N$(RND(8)-l); n " ; V$(RND(3)-1);" ";N$(RND(8)-1); " . " 

620 GCTIO 600 

Put it on your conputer and RUN it. If you should run out of memory 
(indicated by (M ERROR or OS ERROR) see if you can figure out what to do 
about it (see Lesson 11). 

It is also feasible to store the words in DATA statements. In this 
case they are read into the program using a READ statement as the follow- 
ing program, designed with tongue-in-cheek to generate impressive 
plirases for use in reports and grant requests. 

READ W$(I) is like INPUT W$(I), except that it obtains the string value 
for W$(I) from a DATA statement instead of from the keyboard. 

The individual string entries in the data statement are each enclosed 
in quotes and entries are separated by commas. Tte computer will go to 
the next DATA statement if the DATA statement on which it is working is 
exhausted. DATA may also read from tape — but not here. 
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DATA statements may aiso be used to store numerical data, in this case 
nunvrh-.u1 variables (no $) are used in the READ statement and quotes are 
not used in the DATA statement. 

10 DIMW$(35) 
20 FOR I * TO 35 
30 READW$(I) 
40 NEXT I 

5/fi hata • 'TnjMTi iM^ntt at/ ' ' 'gAg TQ* * > 1 INTUITIVE' ' ' 'ST* TyKOT-fJFIN 1 ! 'KHFP' ' 
"IMOGKNEOUS", "MODULAR"^ ' "'*"***•" > — - ^,*~* 

51 DATA "PARALLEL", "CENTRAL", "EQUAL", "SUPERIOR", "COLLECTIVE", 
"JuTOWTAL" 

52 DATA "ACCOUNTABLE" "UNGRADED", "NON-SEXIST", "BEHAVORIAL" , 
"SCIENTIFIC", "HUMANITARIAN" 

53 DATA "INTRINSIC", "FOUNDATION", "SUPPORTIVE", "LIMITED", "UNIFORM", 
"DISADVANTAGED" 

54 D^rA^^OTRUCTURE", "PERFORMANCE" , "REINFORCEMENT 1 , "GROUPING", 
' '(XTiRICULiuivr ' , ' 'ET7v IEGNme<w r ; 

55 DATA "OBJECTIVE", "BOARD", "EXPERIMENT", "POOCY", "TEACHING", 
"EXAGGERATION" 

100 PRINT W$(HND(12)-1);» "; 

110 PRINT W$(HND(12)+11);» »• 

120 PRINT V/$(RND( 12)+23) 

130 PRINT 

140 FOR Q = 1 TO 600 : NEXT Q 

150 GOTO 100 

It is easy to substitute words of the reader's choice by changing 
the DATA statements (50,51,52,53,54,55). The program chooses its first 
word from the first 12 words of the data list, the second word from words 
13-24 and the third word from words 25-36 in the DATA list. You may be 
interested in seeing what happens if you replace one of the words between 
n uotes with a blank s^ace ^^■^•"^o^ *-*n.-\+-<ar» 
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A SECOND SENTENCE GENERATOR 

Let's write a program to generate more sentences. Consider the sentence: 

HELEN QUICKLY SAW THE RED FOX. 
The parts of speech are 

NOUN ADVERB VERB ARTICLE ADJECTIVE NOUN 
Another sentence having the same pattern is: 

JOHN SADLY SWEPT THE DIRTY FLOOR. 

Let's write a program that will accept 10 nouns, 5 adverbs, 6 verbs and 
7 adjectives. We shall start by setting aside the needed space by using 
CLEAR and DIMension statements. 

2 CLEAR 1000 

5 CIS 

10 DIMNS(9), A$(4), V$(5), J$(6) 

20 S$ - M " 

Next , we shall write a portion of the program to permit us to type in the 
words of our choice. 

100 PRINT 'TYPE TEN NOUNS. DEPRESS (ENTER) AFTER EACH WORD." 

110 KM K = TO 9 

120 PRINT K+l; 

130 INPUT N$(K) 

140 NEXT K 

150 PRINT 

That wasn't so hard was it? The computer numbers the stored words to 9, 
but humans seem to prefer 1 to 10, so that is what we used for each. 
Let's continue- 

200 PRINT "PLEASE TYPE 5 ADVERBS. DEPRESS (ENTER) AFTER EACH WO©." 

205 PRINT "ADVERBS USUALLY END IN -LY. M 

210 FCB K : = TO 4 

220 PRINT K + 1 J 

230 INPUT A$(K) 

240 NEXT K 

250 PRINT 

300 PRINT "PLEASE TYPE 6 VERBS (PAST TENSE). DEPRESS (ENTER) AFTER 

EACH WORD." 

310 FOR K = TO 5 
320 PRINT K + 1 1 
330 INPUT V$(K) 

340 NEXT K 

350 PRINT contlnu&d on next pagz 
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400 PRINT "PLEASE ALSO TYPE 7 ADJECTIVES. DEPRESS (ENTER) AFTER 

EACH WORD," 

410 FOR K = TO 6 
420 PRINT K+l 
430 INPUT J$(K) 

44(9 NEXT K 

45(5 PRINT 

50(9 PRINT "THAT IS FINE . NOW, I'LL CREATE SOME SENTENCES FOR TOU." 

dtfifA "CV~\D r\ _ 1 «nr\ 1 rhrkrh mttoh *~\ 

610 PRINT 

620 PRINT N$(RND(10)~1); S$; A$(HND(5)-1); S$; V$(RND(6)-1); S$; '"TOE" 

; S$; J$(RND(7)-1); S$; N$(HND(10)-1); " . " 

630 GOTO 600 

RUN 1 ENTER! 



h list ox trie major cuhiNG instructions follows: 
Function Operation 



ASC(4tt6i3) 

CHR$( codz cxp) 

FRE(6Viing) 
INKEY$ 



Returns ASCII code of first 
character in string argument. 

Returns a one-character string 
defined by code.. If code, spec- 
ifies a control function, that 
function is activated. (See 
lesson 4 for equivalent list) 

Returns amount of memory avail- 
able for string storage. Argu™ 
merit is a dunin" variable. 



Examples 



ASC(B$) 
ASC( TT H") 

CHR$(34) 
CHR$(K) 



*HE(A$) 



300 

JOTE: 



IW(6 tning) 



Strobes keyboard and returns a IHKEY$ 

one-character string corres- 
ponding to key pressed during 
strobe (null string if no key 
is pressed), usually used as 
A$ = II&£EY$ : IF A$="" SEEN 3(9(9 EIJSE PRINT A$; 

There is no space between the quote 
marks. Ihus IF A$ is the null 
string, the program loops back to 
strobe the keyboard again. ELSE 
it prints the value typed and con- 
tinues with the next instruction. 

Returns length of 6t/ung(2BTo LEN(i^+B$) 

for null string). iml'WJBS") 
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Functioa 

l£FT(&tning f n) 

MD$(>!>tAAng,p t n) 

BMjHS$(6&tAng,n) 

STR$(nu/ne/ti.c exp) 

SmiNG$(n,"dtaV') 
VPL>(*VUng) 



Operation 

Returns first n characters 

Of bfylUlQ. 



Returns substring of £>&ujig 
starting at position p in 
6 thing and containing the 
next n characters. 

Returns last n characters 
of &&iing. 

Returns a string representa- 
tion of the evaluated argu- 
ment. This converts numeric 
variables to string variables. 



Examples 

IEFI$(A$,1) 

LEM$(L1$4C$,8) 

LEFT$(A$,M4-L) 



MHD$(M$4B$,P f L-l) 



RIGOT$(NA$,7) 
RI(ffi$(AB$,M2) 

STB$( 1.2345) 
STR$(A4B*2) 



Returns a sequence of n "chaA" STRING$(30,".") 
symbols using first character STBING$(25,"A") 
of chcut.. Useful in creating STRING$(5,C$) 
borders or divisions of the 
output. 



Returns a numeric value cor- 
responding to a numeric- 
valued string. This is the 
inverse of STR$( ). 



VAL("1"+A$-M\ "■+€$) 

VAL(A$-*B$) 

VAL(G1$) 



(6t/iuig may be a string variable, egression, or constant.) 

^° concatenate strings (put them together), use the + operator as in 

"2" + ,r ftXT + "76" = 2YOJ76 

Note that it is important to include desired leading and trailing spaces 
inside the quotes if you wish them to appear both in cancatenation and 
in PRINT 'TOUR NAME IS ";*?$; " ." 
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A CIPHER PROGRAM 

Hie following program creates a simple, but reasonably secure cipher 
by first changing each character into its mmerical ASCII equivalent, 
using the ASC( ) instruction, adding a computer-generated random num- 
ber to the ASCII code, moving the result to the desired range 48^N^90, 
and then changing the modified ASCII code into an appropriate symbol us- 
ing CHR$( ). Decipherment is done using the reverse process. You may 
change the basic key by changing instruction 135 to E = Q*R for some 
other appropriate Q- value. But don't make the change unless you under- 
stand random-number generators. The choice of Q is critical and depends 
upon the number system used. 

10 DIM C(500) 

40 L = 

50 INPUT "PLEASE TYPE YOUR KEY— POSITIVE TO ENCIPHER, NEGATIVE ID IE- 
CIPHER." ;K 

60 R = ABS(K) : Rl = R 

70 PRINT "PLEASE TYPE COMPLETE MESSAGE FOLLOWED BY THE SYMBOL t ." 

100 P$ - INKEY$ : IF P$ « "" THEN 100 ELSE PRINT P$; 

105 IV P$ ■;= "/" THEN 100 

112 IF P$ - "t" THEN 200 

115 L = L+l 

117 IF K.< THEN Rl = -1*KL 

120 C(L> « ASC(P$)+R1 

125 IF C(L)> 90 THEN C(L) = C(L) - 43 

130 IF C(L)< 48 THEN C(L) = C(L) + 43 

135 R - 197*R 

137 R - R-10000*INT(R/10000) 

139 Rl - INT(.004*R) 

150 GOTO 100 

200 PRINT 

205 IF K < THEN 300 

210 K)R M - 10 L-l STEP 5 
215 FOR N - 1 TO 5 

220 PRINT CHR$(C(M+-N)); 

230 NE3CT N 

240 PRINT " "; 

250 NEXT M 

260 END 

300 IOR M = 1 TO L 
310 PRINT CHR$(C(M)); 

320 NEXTM 

400 END 

Note, that instruction 1^0 uses the INKEY instruction which strops the 
keyboard once. If ajsey is depressed during the stroll, that value is 
stored in variable r%>, otherwise P$ contains a null (not a blank, just 
nothing at ail). The instruction 

IF P$ = "" T»J ±<M EL3E PRIHT P$ 
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sends the computer back to 100 P$ = INKKY$ if P$ is blank, otherwise it 
pnnts the value of P$ (the key just depressed) on the screen and con- 
tinues to the next instruction 

105 IF P$ <="/" THEN 100 

which essentially refuses any symbols before / (= 47 in ASCII-see Lesson 

112 IF P$ = "t" THEN 200 

sends tl>e computer to 200 when the message is complete, as indicated by 
typing [tj y 

lines 115 to 150 encipher or decipher the message depending upon whether 
the key K is positive (encipher) or negative( decipher). Each user will 
presumably have a different numerical key. 

205 IF K<<& THEN 300 

sends the cemputer to 300 if it is deciphering the message, and prints 
the entire message as one string (blanks between words were not enciph- 
ered—they could have been, but weren't). 

IF K >= then the computer continues with instruction 210 to 260 which 
displays the enciphered message in blocks of five symbols (a standard 
cipher practice). 

EOBOT COUNSELOR 

The following program, which runs on any 4K THS-80, gives a brief in- 
sight into what programs that have more memory available can be expected 
to do. v 

1 REM B3B0T COUNSELOR 

2 RANDM 

5 as 

7 CLEAR 100 

10 DIM G$(9) 

11 G$(0) = "HMM. ..MMM. ,.,VERY INTERESTING" 

13 3(2) - ."Sra? ^S^' Y0U OTEBSTTAND, JUST STRANGE" 

i- %$aI * i^SS?^' HOT PEREKCILY READABLE UNDER THE CIBOM?TANCES'' 
Id G$(4) * "THERE MAY EASILY HE M)HE TO IT THAN THAT" 
IB G$(5) = "THAT MAY BE AN EXAGGERATION" 

17 g$(6) - "very common m today 1 s worut 

18 G$(7) - "BEWILDERING. I DO NOT UNDERSTAND IT" 

19 G$(8) = "I HOPE TUORR0W WILL HE EETTER" 

20 G$(9) - "SURPRISING IN THE LIGHT OF YOUR BAOCTOUND" 

50 nSSL^ I,DLIKE TOHEIP *W- MAYBE TOGETHER WE CAN TOK CXTT YOUR 
PROBLEM. PLEASE ANSWER ME WHEN I ASK YOU QUESTIONS •' 

aontinu&d 

\7& 
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52 FOR Q » 1 TO 400 : NEXT Q 

53 PRINT 

55 PRINT "JUST TYPE YOUR ANSWERS, ITfflSN DEPRESS r IHE WHITE (ENTER) KEY." 

57 K)R Q = 1 r IO 300 : NEXT Q 

59 PRINT 

60 INPUT "PLEASE TYPE YOUR FIRST NAME AND DEPRESS (ENTER) KEY.";N$ 

61 PRINT : PRINT : PRINT "HI "; N$ 
70 PRINT : PRINT 

80 K)R Q = 1 TO 900 : NEXT Q 



WORDS." 

110 INPUT R$ 

115 H)R Q = 1 TO 500 

120 PRINT : PRINT :PRINT "CM, I SEE. THAT IS ";G$(R^D(10)-l); n ." 

130 FOR Q - 1 TO 800 + RND(1000) : NEXT Q 

139 PRINT 

140 PRINT "WHO IX) YOU THINK MAKES YOU FEEL ";R$;"?" 
150 INPUT R2$ 

.155 IF R2$ = "ME" THEN R2$ = "YOU AujwE !i 

156 IF R2$ - "MYSELF 1 THEN R2$ - "YOU YOURSELF" 

157 IF R2$ - "YOU 1 ' THEN R2S = "THE TRS-80" 
160 PRINT : PRINT 

163 FOR Q « 1 TO 100 + HND(500) :NEXT Q 

165 PRINT "WELL NOW, ";N$; "/THAT IS CERTAINLY "; G$(RND(10)-1 ) ;"." 

170 K)R Q = 1 TO 500 + MD(600) :NEXT Q 

180 PRINT:PRINT "DO YOU REALLY BELIEVE 1 ";R2$; "MAKES YOU OTL ";R$; ,f ? fl 

190 INPUT A$ 

200 IE A$ = "NO" THEN PRINT ^'WELL ";N$;", HEA5E HE FRANK WITH ME. IT 

SEE&SS , ^G$(HND(i0)-l);"l' , T , QOiD"i40 
210 PRINT: PRINT: 

220 FOR Q = 1 TO 10 + RND(1000) :NEXT Q 
225 PRINT "THAT IS ,r ;G$(HND(10)-l);». IT IS M ;G$(HND(10)~1);"." 

228 PRINT "THINK ABOUT IT A BIT," 

229 PRINT:PRINT "IT TO rh1l ' iKh!!'> t! "G*'END'l'*' x -l^* 11 " • ryoThrv.noTKrv 

230 prustt "really now, tell the'truih/ please'be PRANK WITH ME." 

235 PRINT "IT SEEK ";G$(HND(10)-1);".» 
240 GOTO 100 

After you have run the program a few times, change some of the phrases 
stored in G$( ) in lines 11 to 20. See if you can produce a more inter- 
esting ROBOT COUNSELOR program. 
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LOGICAL OPERATORS 

Have you wondered how the conputer handles IF instructions? 
The instruction 

IF X >13 THEN 420 EI£E 30 

examines the number stored in location X and if X is greater than 13, 
sends the conputer to statement 420 for its next instruction but if X is 
less than or equal to 13 sends the conputer to statement 30 for its next 
instruction. 

The instruction 

IF X >125 THEN X - 125 
examines the variable X and if X is greater than 125, sets X = 125. 

Actually the expression X >125 is evaluated as a logical expression . 

If the current value of X makes X > 125 a TOTE statement, then the value of 
the logical expression 

(X>125) is -1. 

If the current value of X makes X > 125 a FALSE statement, then the value 
of the logical expression (X >125) is 0. 

You can examine this by running the program 

100 V = 25 

110 K)R K = 1 TO 8 

120 X = K * Y 

130 PRINT K,X,(X>125) 

140 NEXT K 

which produces the output 



1 


25 





2 


50 





3 


75 





4 


100 





5 


125 





6 


150 


-1 


7 


175 


-1 


8 


200 


-1 



The actual values (TRUE = -1, FAISE - 0) used are uninportant at this 
stage, and may vary on different computers. (I£VEL I TO3-80's use 
TRUE = 1, FALSE - .) 
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.... t^e value produced represents THUS (i.e., -1) then the remaining 
statements on the IF line are carried out (possibly several statements 
separated by colons). 

If the value produced represents FALSE (i.e., 0) then the computer 
skips the rest of the instructions in that statement line (possibly sev- 
eral instructions) and goes to the next line or the ELSE statement for 
its next instruction. 

It is possible to combine statements using logical operators: 
AND If both expressions are true TRUE (— 1) otherwise FALSE (=a) 

OR IF either expression is true TRUE (=-1) otherwise FALSE (=0) 

NOT Interchanges THJE (-1) and FALSE (Q*). 

EXAMPLE: 

100 INPUT A,B 
lip Jr'lUNi' "A= M ;A, i! B= n ;B 

120 IF A> B THEN PRINT "A IS GREATER THAN B" 

130 IF (A > 0) AND (A < 10) THEN PRINT " < A < 10 " EUSE PHOT* "A<« or 
A>- 10. ' 

140 IF (B>20) OR (B<-20) THEN PRINT "ABS (B)> 20." 

150 IF ((A> 0) AND (B>0)) OR ((A<0) AND (B< 0)) 1HEN PRINT "A*B> 0." 

ELSE PRINT "A*B< = 0." 
160 OOTO 100 

Actually the AND, OR, NOT logical operations also may be used to test 
individual bits in the binary storage ox TRS-80 words since the opera- 
tions perform Boolean operations on the bits of numbers as well as on 
logical statements. Readers interested in such masking operations should 
first consult chapter 8 of the TO-80 Level II BASIC REFERENCE MANUAL 
and then a text on Boolean (logical) algebra, 
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WHERE TO LOOK FOR ADDITIONAL INFORMATION 

Your first source of additional information is the L£VEL I or 
££VEL II BASIC REFERENCE MANUAL that came with your THS-80. You should 
also be receiving (free) the Radio Shack Micro Computer Newletter if you 
filled out the card requesting it that came with your TRS-80. 

Fellow conputer buffs are another excellent source of information. 
If you are in real difficulty, don't hesitate to telephone or write to 
The Radio Shack Conputer Services Center in Ft. Worth. They maintain a 
staff of knowledgable people who seem both willing and able to help TRS- 
80 owners. The address is 



Conputer Services 
900 Iwo Tandy Center 
Ft. Worth, TX 76102 



Telephone : 
1~(800)-433~1679 



They do not assist in debugging or writing programs, but will glad- 
ly assist you if you have questions about what a given BASIC or Z-80 
instruction does or about the TRS-80 hardware. 

Most computer programmers , either hobbyists or professionals, learn 
most about computing by burning midnight oil at the computer. One learns 
to compute by computing, and then by analyzing the results. 

There seem to be clubs, conventions and magazines devoted to almsst 
any hobby that interests you, and computers are no exception. There are 
even special clubs, conventions and magazines devoted exclusively to 
microcomputers. Some are so highly specialized that they concentrate on 
the TRS-80 microcomputer. Ask around your own area and see what micro- 
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ixmvuter clubs juui/or ainwn lions are available. If no microcomputer club 
exists in your area, organize one yourself. 

No list of microconputer magazines (journals) can ever be complete — 
new ones seen to start up almost monthly; others drop into oblivion. 
Some are excellent; others are a waste of funds. Most will send you a 
sample copy if you ask for one, then you can judge how well it fits your 
particular interests. 

Horo ana o/-\rr«=i fhn+ ««-* 4-nlm ,«>-; 4-U ^,,« -*>„,, £j _■ a.: __j a i _j '©■ 

Prices were current at time of printing. 

Micro Computer Conference Proceedings 

The Best of the West Ooast Computer Faires , 333 Swett Road, Woodside, 
CA, 94062. Set of 4 $53; Vols I (1976) & III (1978) $13.72 ea. ; 
Vols II (1977) & IV (1979) $14.78 ea. 

* Show & TteU microOOMPUrER Conference Proceedings , Department of Math- 
ematics, uiuvei-sily of Oklahoma, Norman, (K, 73013. {lM'Sti) $Y.5U; 
(1979) $10; (1980) $10; (1981) $10. Conference held in May each year. 

Micro Conputer Periodicals 

♦*Bvte, Byte Subscriptions, P.O. Box 590, Martinsville, NJ, 08836, 
monthly, $15 per year. Both hardware and programs. Some technical 
material. 

Oomputronics, TRS-80 Monthly News Magazine , P.O. Box 149, New York 
City, NY, 10956, monthly, $24 per year. Not worth the cost in my 
judgment — request an examination copy and judge for yourself. Mag- 
azines change. 

The Computing Teacher , Computing Center, Eastern Oregon State College, 
La Grande, OR, 97850, bi-monthly, $8 per year. 

$15 per year. Probably the best buy available. Something for every- 
one. Well written and authoritative articles. 

Ifeta General News , Data General Corporation Southboro ISA 01772 
(free — devoted to their computers). 

Dr. Dobbs Journal of Computer Calisthenics & Orthodontia , The Peoples 
Conputer Co., Box E, Menlo Park, CA, 94025, monthly, $12 per year. 



♦ Games, Games Productions, Inc., 515 Madison Ave., New York City, NY, 
10022, bi-monthly, $5.97 per year. Not conputer oriented, but lots 
of good ideas you can use. 

^^&Puz20es, Edu-Games (U.K.) Ltd., P.O. Box 4, London, England, 
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^^.y'li'IJ^JIiatl^jWlaLhMiMLics, Bnyua>d Pul.l ishi ng. 120 Mnrine 



hare address, pci-sonnl cliork ) 
Pera^aljljntuitintr, Circulation, Personal Gonputing, 1050 Connnn-' 
wealth Ave., Boston, MA, 02215, monthly, $14 per year. 

® Computer Music Journal , ISSN 0148-9276 MIT Press Journals 28 Carleton 
St., Cambridge,, MA 02142. Price $4 per issue, $20 yearly. 

*** PR0G 80 . Softside Publications, 17 Briar Cliff Dr. , Mil ford NH 

02055, monthly, $15 per year. Lots of goodies for'the serious TRS-80 
progranmer. 

ff gdio Shack Microcomputer Newsletter . Radio Shack, One Tandy Center 
S12/ye£? h ' ™' 761 °^' ™ _8 ° ° WTlerS " recelve free for 6 ^.rths? then 
fecrcatdonal Computing People's Computer Company, 1263 El Camino 
Real, Box E, Menlo Park, CA, 04025, 6 issues per year, $10.00. 

The Recreational Programner. Computer Software, P.O. Box 2571 
Kalmiruaoo, MI, 49003, bi-monthly, $12 per year. 

Soltsuie, Soltside Publications, 17 Briar Cli It Dr., Miiford, NH 
02055. ..on t lily, $15 per year. Lots of BASIC grures In this one. 
T-^PAL, The Mail Mart, Box 11102, San Francisco, CA, 94101, nnnthlv 
$24 per year, Seems expensive for what you get. Ask for a sample' 
copy, it should havxs improved. 

ffi TRS-80 Computing, Conputer Information Exchange, P.O. Box 158 San 
Luis Rey, CA, 92068, monthly, $15 per year. Sis of gSies here! 

*Ssv § '< R f"^r PUbI1Shing 'c 3220N - 32n dSt., Tacoma, WA, 98407, sample 
copy, $3, $16 per year. Six issues annually. 

^^ifi letiD °f th I C™^^ Art* Society, John Lansdown, 50151 
^f^\ ^i U3ndDn ' WCIB4JX - England, quarterly, $51 per year 
(students half-price). Or write Kurt Lauckner, Math. Dept. Eastern 

LssStSd art WrSlty ' YpS±lmt± - MI < 48917 " ^oted to colter 

™:g? US 5^ GTOU P -' re54 ^"thgate Rd. , Fayetteville, NC, 28304, 
_ ^^^^- * infOITOal ****««« for amateurs that is 

* 80 Microcomputing, Started in January 1980 and so far looks to be 
well worth the $12/year. This monthly slick magazine devotS to 
TR^TO does not pull punches and keeps you informed on the latest 
Sftte TrSsS S evaluations of hardware and software related 
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Where to Buy Programs 

We don't purchase many programs; we write our own because it is more 
fun. Most of the mi crocomputer magazines and conference proceedings carry 
programs. Some, you can obtain on tape at a modest cost. Most carry ads 
for programs that will run on your TRS-80 . Some sell programs that are 
definite "rip-offs". Others are bargains. Few have adequate documenta- 
tion with them. Still, yuu will almost certainly be tempted to buy sane, 
just to try them out. Read the ads. Go to your local Radio Shack (or 
Radio Shack Computer Center, if you have one. . .many middle-to-large cities 
do) . Go to any other computer stores in your area and ask to see the pro- 
grams in action. (Don't let your local computer store disparage the TRS- 
80. Some will because they do not sell them. ) Attend a microcomputer 
club in your area. Ask about available software. 

If you haven't seen Leo Christopherson ' s Android Nim (with sound), 
you should. Nim isn't much of a game, but the animation is superb (1980 
price, $14.95, runs on 16K Level II TRS-80). If you wish a TRS-80 chess 
or checker playing program, look over the results from the most recent 
national niicrt)computer chess or checkers tournament. There are a dozen 
programs available for under $20 each, and the quality varies considerab- 
ly. Read the comments and the ads in whatever microcomputer periodicals 
you and/or your Jibaray take. 

You should probably write to: 

People f s Software 

Computer Information Exchange 

Box 158 

San Luis Rey, CA 92086 

xtx^y yu.v <x wupic ox uuoen programs on a tape ana sexi it, lor $&.uu 
(see Lesson 7 ). They also sell more expensive programs, like People's 
Pascal ( $ 23.50). New programs are added frequently. Drop them a card 
asking for a current price list. 

HAVE KIN! VMM WITH YOUR NEW HOEBY. READ, EXPERIMENT, DISCUSS YOUR 

EXPERIENCES. HAVE fuN! 
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Your TRS-80 Level II BASIC Reference Manual contains details of the 
available Level II BASIC instructions. If you have an expansion inter- 
face, line printer, or disk you will find additional instructions defined 
in the accompanying reference manuals. Here are several additional Level 
II BASIC instructions you may find convenient. 



Additional Keyboard Conrmands 

AUTO mm t nn 

Turns on automatic line numbering 
beginning with mm and in steps of 
nn. If f nn is omitted, the default 
step size is 10. 



Examples 



AUTO 1(30 
AUTO 10(9,5 

AUTO 300, 20 



ENTEffl 



I ENTER! 



DELATE mtn~nn 

Deletes program steps iron line 
mm to line nn inclusive. Both 
mm and nn should be actual statement 
numbers in the program. 

LIST rwn-nn 

Lists program from line mm to 
line nn. 



RUN mm 

Executes program beginning at line mm. RUN 450 

SYSTEM 

Biter monitor mode for loading Z-80 
language program from cassette tape. 
Frequently used with advanced com- 
mercial programming. 



DELETE 410 [ENTER 
DELETE 80-230 



ENTER 



LIST 


270-400 imeeeJ 


LIST 
LIST 


140- | ENTER] 
-270 | ENTER | 


LIST 
RUN 


lENTERl 

lENTERl 


RUN 


450 ! ENTER) 


SYSTEM jENIKRI 
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Additional Program Instructions Examples 
TON TRCN 

Turns on TRACE program in \tfrich 
variable values are shown on screen 
to help you debug program. TRACE 
program is always in the TRS-80, as 
part of your Level II BASIC BCBi. 



Turns TRACE program off. Tfce TRACE 
program is still in the ooroputer . 

USK(n) USR(0) 

Branches to a Z-80 machine language 
subroutine already entered by the 
user. You'll need to use POKE first. 

RESTORE RESTORE 

Besets the DATA pointer to the first 
DATA statement to permit program to 
reuse the same data. 

GOSUB nn GOSUB 460 

Branch to the subroutine beginning GOSUB 3700 
at line number nn. 



RETURN 

Each subroutine must contain at 
least one RETTURN statement. This 
sends the program back to the line 
following the GOSUB that branched 
to the subroutine. 



HETFUBN 



CN a GOTO mm, nn, pp, qq, f " 

If the value of JOT(a). where a is a 
variable or expression, is one of the 
numbers 1,2,3,4," • ,k then go to the 
statement number in that position on 
the list of statement numbers mm, nn, 
PP, qq,"'. 

CN a GOSUB mm, nn, pp t qq, '" 

Same as (M a GOTO except the Rfe ?!* 1 itJM 

to statement following CN a GOSUB 

when REIUEM is encountered. 



a* 






CN K+2 GOTO 700,700,400,300,500 



CN K GOSUB 3300, 



, 4# 



1 %$ 



Ar i t;hme t i c Fiuu: 1 1 onx 
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Function Oporation(unless noted otherwise, 
-1 . 7E+38<«fcxp<«l. 7E+38) 

ABS(exp) Returns absolute value. 



ATN(exp) Returns arctangent in radians. 

OBL(exp) Returns double-precision represen- 
tative of exp. 

CINT(exp) Beturns largest integer not greater 
than exp. Limits: 
-32768<=exp<+32768. 

COS (exp) Returns the cosine of exp; assumes 
exp is in radians. 

CSNG(exp) Returns single-precision represen- 
tation, with 5/4 rounding in least 
significant decimal when exp is 
double-precision . 

EXP(exp) Returns the natural exponential, 

e e * p =EXP(exp). 

FlX(exp) Returns the integer equivalent to 
truncated exp (fractional part of 
exp is chopped off). 

INT(exp) Returns largest integer not greater 
than exp. 

UDG(exp) Returns natural logarithm (base e) 

of exp. Limits: exp must be positive. 

SQtf(exp) Returns M for negative exp; o for 
zero exp; +i for positive exp. 

SIN(exp) Returns the sine of exp ; assumes 
exp is in radians. 

SQR(exp) Returns square root of exp. Limits: 
exp must be non-negative. 

TAN(exp) Returns the tangent of exp; assumes 
exp is in radians. 



Examples 



ABS(L*.7) 
ABS(SIN(X)) 

ATN(2.7) 
ATO(A*3) 

CDBL(A) 
<XBL(A+l/3#) 

CINT(A#+B) 



00S(2*A) 
00S(A/57. 29578) 

CSNG(A#) 
CSNG(.33*B#) 



EXP(34.5) 

EXP(A*B*C~1) 

FIX(A-B) 

INT(A+B*C) 

L0G(12.33) 
LOG(A+BfB) 

SG*(A*Bf3) 
SQsf(OOS(X)) 

SIN(A/B) 

SIN(90/57. 29578) 

SQR(A*A-B*B) 

TAN(X) 

TAN(X*. 01745329) 



exp matj be any namvUc vojuablz, aomtant on. competed zxpKUtion. 
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There are a number of other Level II BASIC instructions available for 
special use on your TO3-80. If your programming is advanced enough to 
need these extra instructions see the TO3-8Q Level II BASIC Reference 
Manual and the reference manuals accompanying any additional equipment 
you may have (Disk, Lineprinter) etc. 

Three examples are: 



POCE location, value. 

Luaub vdZu<c lii to iutaijuiry lucuZLvn* Trie 
arguments must be decimal numeric vari- 
ables, constants or functions with 
< value < 225 . Used in advanced pro- 
granming to change memory content or 
display screen and with USR( ) func- 
tion. See Chapter 8 of Level II 
BASIC Reference Manual,. 



Jrv-BRUD JU00J7O.Z.0 



will disable the j'lBBEAKl key. 
This is sometimes used to pre- 
vent unsophisticated users from 
[BSBKAKl -ing into a program. 



PEEK ( addAteA) 

Returns the (decimal) value stored in 
the memory add/ui*.6 specified. Also, 
makes values of Z-80 machine language 
variables available to BASIC programs. 
See Chapter 8 of Level II BASIC Refer- 
ence Manual. 



iy *UK K = J0 *JLU 12288 
20 PRINT K;PEEK(K), 
S^ NEXT K 

will display the location and 
contents of your Level II BASIC 
BOM. It won't mean much to you, 
but it will do it. 



RANDOM 

is frequently executed once near the 

beginning of a program to reseed 

the RND( ) instruction. Do not use 

RANDOM inside of a loop or where it will 

wS USSu. Ti 



HEM 
RANDOM 



p/wgnam name. 
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EXAMPLE 17-1 

Let us examine a program designed to determine the factors of a given 
integer. Forms of this program have appeared in several magazines, books 
and even in tape form. The given program works. It produces the desired 
factors for any positive integer Z. However, it is easy to improve upon 
the program, as we shall see, 

First examine the original program to see why it works. 

1?) REM FIRST WORKING ATTEMPT TO FACTOR A NUMBER 

100 INPUT "TYPE NTMBi-R TO BE FACTORED"* Z 

110 PRINT "THE PRIME FACTORS OF'-Z; "ARE" * 

120 N = Z 

130 F = 2 

140 IF N/F < > INT (1^/F) THEN 200 

150 PRINT F; 

160 N = N/F 

170 IF N « 1 THEN STOP ELSE 140 

200 F = F + 1 

210 IF F < - Z THEN 140 

The heart of the program is instruction 140 

IF N/F < > INT(N/F) THEN 200 

which uses the integer function INT( ) to determine whether or not N/F is 
an Integer (i.e. , whether or not F is a factor of N). If F is not a fac- 
tor of N, the program jumps to instruction 200 which increases F by 1. 
If new F < =Z the program loops back to instruction 140 to determine 
whether or not the new F is a factor of N. If F is a factor of N, the 
value of F is printed, N is replaced by N/F and if the newN = N/F <> 1, 
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the test is repeated. When either of the conditions N = 1 or F > Z 
occurs, the original number Z is conpletely factored. 

The program also uses an axiom many experienced programmers have 

found worthwhile _ 



| Don't alter the value of 

I an INPUT variable inside your program 



Note that the program inputs the value of Z but then sets N = Z and works 
with N. We could have ignored this motto here, but many experienced pro- 
grammers will tell you they stick to it in their own work. It avoids 
trouble . 

The program produces the prime factors of any positive integer of 
six or fewer digits you put in. Try it and see. Then examine the pro- 
gram to see exactly how it works. 

If you have any trouble following the program, makea chart of 
variables in the program and step the program throug fo . if your INPUT 
value is Z = 12, your chart will contain 



N 



PRINTED otrr 



12 



12 

6 
3 
1 STOP 



Hie prime factors of 12 are 
2 
2 
3 



After you understand how the program works, you may wish to create a flow- 
chart of the logic involved. Flowcharts are frequently used to express 
the logic involved in more complicated problems. This particular program 
is probably not involved enough to require a flowchart, but it is easy to 
"see" the flowchart of a sirole problem. 



INPUT 
Z 




H § 9 , 



Your flew chart should look something like this : 
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INPOT 2 

ZZ3ZI 



PRINT MESSACE 



SET N = Z 
SET F = 2 




STOP 



Note how easy it is to explain what the program is doing using a flow 
chart. 
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Actuax-iy, axtnougti trie program in question oas oeen puDiisneu m 
several versions, it is an example of deplorably poor progranming prac- 
tice . It works fairly well on small values, but note the difference be- 
tween Z = 1847 and Z = 1848 in the time required, 
continuing. 



Try it yourself before 



Furthermore, Z = 1950 takes :01 second to factor and 

Z = 1951 takes 1:01 seconds to factor. This seems a long time for a 
r>nujp>rfii! cof!T}Uter. Of course it dbes do a lot of arithmetic in that 
time. In fact, that is just the trouble — it does too much arithmetic. 
The program tests F - 2, 3, 4, 5, 6, 7, 8, 9,..., Z repeatedly. However, 
if we factor out all the 2's at the beginning, then there is no reason to 
also try 4, 6, 8, 10, etc. This should enable us to almost cut the time 
by half. 

Tnis can be done by making the following changes: 



10 WM, FIRST WORKING ATIOTPT TO 
FACTOR A NUMR 
100 INPUT "TYPE NUMBER TO M 

FACTORED " ; Z 
110 PRINT "THE PRIME FACTORS 

OF "; Z; "ABE ,f ; 
.120 N « Z 

1 
130 F - 2 I 



140 IF N/F <> INT(N/F) THEN 200 

160 N = N/F 

170 IF N = 1 THEN STCP EUSE 140 

200 F = F + 1 

210 IF F < * Z THEN 140 



10 K£M FIR&T VOICING ATIE*&>T TO 

FACTOR A NIBffl&R 
100 INPUT "TYPE NUMffiR TO HE 

FACTORED M ; Z 
110 PRINT "THE PRIME FACTORS 

OF "; Z; "ARE "; 
120 N = Z 

125 IF N/2 <> INT(N/2) THEN 135 
130 PRINT " 2"; 
132 N = N/2 

134 GOTO 125 

135 F- 3 
140 IF N/F <> 



INT(N/F) THEN 200 



160 N = N/F 

170 IF N = 1 THEN SXV Et£E 140 

200 F « F + 2 

210 IF F < = N THEN 140 



In instruction 

210 IF F < = Z THEN 140 

there is really no reason to try F values that are larger than the current 
value of N (instead of the erigJLnal Z), so we replace instruction 210 with 

210 IF F < - N Wm 140 
This should cut our tine even further. Make the above changes in 125, 
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i;HJ, 132, 134. IX), 200, and 210. Thon, try the program again. 



Old Program Time 



New Program Time 



12 


:01 


005 


1847 




58 


30 


1848 




01 


01 


12345 




26 


14 


-^6 




01 -LgviofLQA &ign 


005 


8.2 


Rims through 21(3 and stops. 





Even the above program would not satisfy most professional program- 
mers. The biggest complaints would probably be that the program mal- 
functions if negative values are used, and that the data was not tested 
to be sure the input value was an integer. 

The problem of fractional values is readily overcome by inserting: 

105 IF Z <> INT(Z) THEN PRINT "PliSASE USE INTEGER VALUES" : 0010 100 

Negative values could also be handled as improper input, but since 
they can be factored, we prefer another solution. 

115 PRINT "(" ; SGN(Z); ")" 
120 N = ABS(Z) 

This will produce either -1 or 1 in parentheses as a first factor 
We include the parentheses since mathematically, neither -1 nor 1 is* a 
prime. By ending instruction 115 with a comma, instead of a semicolon 
we also provided extra space between the unit and the priire factors. ' 

As long as we are improving our program, we might as well make full 
use of the TRS»80*s arithmetic ability by requesting it to use DOUBLE 
PRECISION arithmetic, which permits us to work with numbers as large as 
16 digits, instead of 6. We can do this by adding: 

10 DEKHL Z, N, F 

However, if we do this, we will be using the much slower double pre- 
cision arithmetic, even when our number to be factored has 6 or fewer 
digits. To avoid this, insert: 
10 VEFEBL Z 
106 IF Z > 999999 1EM r&FCBL N, F 

Many programmers would prefer to print a blank line or two and loop 

i« e f^S *^ t0 - the ^f^ ****** than stopping it once the number 
is factored. This is easily done by changing instruction 17(5 to 

170 IF N-l TM* 9(3 ELSE 140 

and adding: 
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300 GOTO 90 

Our revised program now reads; 

10 EEFDBL z 

90 PRINT : PRINT 

100 INPUT "TYPE NUMBER TO BE FACTORED "; Z 

105 IF Z <> IOT(Z) THEN PRINT "PLEASE USE IOTEC&R VALUES" : GOTO 100 
Iflfi TF Z > mom® TTiEN TTRTTOT.. N, T? 
110 PRINT " THE PRIME FACIORs'oF "; Z ; "ARE " ; 
115 PRINT "(" ; SGN(Z); ")", 
120 N = ABS(Z) 

125 IF N/2 <> INT(N/2) THEN 135 
130 PRINT "2"; 
132 N - N/2 

134 GOTO 125 

135 F = 3 

*\Afh TT? M/T? *••* TWT»/M/T?^ OtlCM nitft 

150 PRINT F; 

160 N - N/F 

170 IF N « 1 THEN 90 ELSE 140 

200 F = F + 2 

210 IFF<= N THEN 140 

300 GOTO 90 

Although our new program takes more lines to write than the original 
program, actually it produces results in less than half the time, and 
works for many additional input values. 

There are still three important cases to be considered. What happens 
if Z = 0? Try it and see. If the output does not satisfy you, change the 
program further by adding: 

IF Z - THEN PRINT " tome, app/top/iicute. meAAage." 

Mathematically oriented readers may prefer to make the program even 
faster by using only prime values for F instead of 2, 3, 5, 7, 9, 11, 
13, 15, ...Z. This will indeed save considerable time on factoring larger 
Qis&sSrs, but requires that a list of prime nurrters be stored or generated. 
We leave this as an exercise for those desiring additional speed. The 
critical statements are 

READ F 

DATA 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 

DATA 53, 59, 61, 67, ..., etc. 

DATA 

where the DA TA statements contai n a list of all tot^^s 
that are < ^999999999999999 or < 10CXXKXKX) if 16-digit arithme- 

tic is being used. 
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The point of this exercise is not to illustrate how to write a fact- 
oring program, but rather to show you that it is very easy to improve most 
programs, including commerical programs written in books (even this one). 
Just because a program "works" does not mean it is a good, or even an 
acceptable, program. The critical questions are: 

1. Does it do the job for which it was designed? (Does it work?) 
If not, it is useless. 

2. Can I iinprove it noticeably without much effort? If so, improve it 
and test the new program. 

3. If it requires much effort to inprove the program, will the results 
be worth the effort? (If the program will selobm be used again, and 
if it does not take an unreasonable amount of computer time as it 
is, it probably is not worth the effort to improve it unless you 
want to use it to brag a bit.) 

4. You should always ask yourself if the method (algorithm) used by 
the original programmer is the best one you can think of. 

Experienced progranraers have a saying that contains much truth. 



| " """" "" " ""* 

| Only after you have written, debugged, and tested 

S a program, do you understand it well enough to 

| program it. If it is a major program, after you 

get the program all up and running smoothly, scrap 

\ the entire program and THINK carefully about it. 

* Then start over from scratch and write a better 

t program. 



194 



Pa^e 17-8 



iuj uuvj.iuiujouCifirvua rrxjiyL£M£) 



We examine another example in detail before trying new micro- 
Research Problems, We consider the four-digit case first, then after 
that is investigated, ask you to expand it in micro-research Problem 18, 
as suggested in the STEPS BOB OCMTOER ASSISTED PBCBLEM SOLVING. 



EXAMPLE 17-2 



Tpt ABCD h& a 4— riisri.t niinhfir such as 4721 



100 LEI 1 


X = 


A 


A = 


ABS 


tA-Bl 


B = 


ABS 


IB-CI 


C - 


ABS 


!C-Dl 


D = 


ABS 


ID-XI 


PRINT A 


; B ; 



; d 

IF A+B+C+D <> THEN 100 ELSE STOP 



Your first problem is to write a BASIC 
program that will show that each 4-digit 
starting-value number will converge to 
in 9 or fewer steps. 



Write your own program before 

contip id nsr 



EXAMPLE 

ABCV =4721 
X = 4 

A - U-7l - 3 

8 * I 7—2 1 - 5 

C * I2-7I - 7 

P - I7-4I - 3 

MEW ASCP - 35 7 3 
X * 3 

A * |3-5l - 2 
B = I5-7I = 4 
C - I 7— 3 1 = 2 

V = I3-3I - 

MEW ABCD = 2420 
X - 2 

A = lz-4l = I 
B * |4*2l = 2 
C = |2-0I - t 

V * \9-2\ ° Z 

MEW ABCP = 2222 
X * 2 

A - !2~2i = 6 
B * I2-2I = 
C = I2-2I * (I 

V - I2-2I * 

MEW ABCV * 
STOP 
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There ju-e several ways this could be done. One of the moi*e obvious is: 

210 TOR M - 1 TO 9 

220 FDR H = TO 9 

225 PRINT "WORKING ON M, H = n ; M; H 

230 FOR T - TO 9 

240 FOR U = TO 9 

250 A = M 

260 B = H 

270 C = T 

280 D - U 

290 PRINT "STARTING WITH A, B, C, D = " A; B; C; D 

300 N = 

310 X = A 

320 N = N+l 

330 A = ABS(A-B) 

340 B = ABS(B-C) 

350 C = ABS(C-D) 

360 D - ABS(D-X) 

370 PRINT A; B; C; D 

380 IFA + B4-C + D>0 THEN 310 

390 PRINT M;H;T;U; "TAKES ";N; "STEPS TO CONVERGE TO 

400 NEXT U 

410 NEXT T 

420 NEXT II 
430 NEXT M 

500 PRINT 

510 PRINT "FINISHED WITH 4-DIGIT TESTS." 



This program runs through all of the four-digit starting-values, 
printing out new values as they are developed, and printing out the num- 
ber N of steps each starting-value requires to converge to 0000 before 
going to a new starting-value whenever ABCD = 



Put it on your conputer and run it. It is interesting to watch, but 
it sure takes a long time to test 90G0 cases! 

Of course, you don't really need to watch, since, if a given starting 
value ever fails to produce 0000, the program will continue trying, and 
the change in pattern will be clear. 

However, if we are not going to watch the program, it can be speeded 
up a lot by eliminating statements 290 and 370. Try it and see. Be sure 
you also recognize how to tell if this revised program ever finds a start- 
ing value which does not converge to 



It is still a long program, and besides, it doesn't really do what we 
set out to do (to show that every 4-digit starting-value converges to 
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WW in nine or fewer steps). 

Itam. ..let's store the largest N-valua in another variable called 
(Why not in B for biggest?) We can do that by .inserting: 

205 L = 

385 IF L > - N THEN 400 

395 L = N 

515 PRTNT "TARfiRRT W VAIJJE IS " ; L 

Let's see how that works. 

205 L - 

210 K)R M = 1 TO 9 

220 K)R H - TO 9 

225 PRINT "WORKING ON M, H - "; M; H 

230 BDR T « TO 9 



250 


xvyjtt. u — y> X\J> ZJ 

A = M 


260 


B « H 


270 


C « T 


280 


D - U 


300 


N = 


310 


X = A 


320 


N = N+l 


330 


A = ABS(A-B) 


340 


B « ABS(B-C) 


350 


C = ABS(OD) 


360 


D « ABS(D-X) 


370 


PRINT A;B;C;D ; 


380 


IFA + B + C + D>p THE 


385 


IF L > - N THEN 400 


390 


PRINT M;H;T;U; "TAKES ";N; 


395 


L = N 



"STOPS TO (X&IVERGE TO 

N 

400 NEXT U 

410 NEXT T 

420 NEXT H 

430 NEXT jvI 

500 PRINT 

510 PRINT "FINISHED WITH 4-DIGIT TESTS." 

515 PRIOT "LARGEST N VALUE IS " ; L 

When we ran the above" program, we discovered L ~ 8. You can modify the 
program to determine all 4~digit starting- values that require 8 steps to 
converge to 
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microRESEARCH PROBLEMS 
(continued from Lesson 5) 
18. a. Extend Example 17-2 to 5-digit starting-values A B C D E 

A - X 

A = ABS(A-U) 
B = ABS(&~C) 
C = ABS(C-D) 
D « ABS(D-E) 
E = ABS(E-X) 

etc. Let's print out each set (like we did in 290 and 37(3) to see 
what is going on at the early stages of our investigation. 



It may coma as a shock to you that not all values converge to 
Indeed, apparently quite a few converge to 900XX (where the digits XX 
are alike, but not necessarily 00), and then enter a long loop which 
eventually returns to 000XX. 

b. Modify the program or write a new one to investigate what really 
does happen to 5-digit starting-values. 

c. Extend your investigations to include 6, 7, and 8-digit starting- 
values and 2 and 3-digit starting-values., as well as the 4 and 5-digit 
Vet lues already investigated. 

Would you Like to conjecture that all start ing~va3ues converge to 
00. . .XX, but that we can guarantee XX = 00 only if the number of 
digits in the starting- value is a power of 2? Why, or why not? 

19. Write a program that will shuffle 52 cards in the computer and deal 
out 4 bridge hands, and then bid one of the hands, with human input 
for bids on the other three hands. 

20. Write a program to create Haiku poetry. 

21. Write a program that will accept seven subscripted variables V(0), 
V(l), . . . ,V(6) and will test to determine whether or not any of the 
variables contain equal values. If all seven variables are different, 
print "ALL VARIABLES ARE DISTINCT." Otherwise, print the subscripts 
and the cormon value of those variables containing the same value. If 
there is more than one set of subscripted variables with the same val- 
ues, the program should also indicate the subscripts and common values 
of other sets. 
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V(0) = 4 
V(l) = -3 
V(2) = 1.765 
V(3) = 4 
V(4) = »2 
V(5) = ~3 
V(6) = 4 

lhe output stoma be 

SUBSCRIPTS -03b VALUE - 4 
SUBSCRIPTS -IS VALUE = -3 



22. Write a program to accept one of the three syuix>is from the key- 
board (3 + . The program should then examine a string of 

T^urr* f p,-^™ n/\TA r, -j- r. -t- rtrwN «■■*-<-. ^v-w fxXDIH 4 "a r ~ l ' r " 1 ^ Slid If 

was depressed at the keyboard, display the number and s\am of 
the negative DATA values. 

+ was depressed at the keyboard, display the number and sum of 
the positive DATA values. 

was depressed at the keyboard, display the number of zeros 
in the DATA. 

23. A theorem from number theory states that every integer N is 
expressible in the form 

N = X 2 + Y 2 - Z 2 where X, Y, and Z are integers. 

a. Write a program that will accept values of N between -100 
and +100 and print out N (as the sun of two integer squares 
minus another integer square) before returning to accept an- 
other value N. 

b. Enclose your program in a K)R. . .NEXT loop to test all 
-100 < N < 100. 

c. Can you speed your program up so it could feasibly work for 
-5000 < N < 5000? 

24. Euclid's proof that there exist infinitely many prims integers uses 
the expression 

N fe = 1 + (2*3*5*7*11*.. ,*P fe ) 

fc positive primes. 

Write a computer program to determine the first 20 values of N^. 
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Extend your program to determine which of these N, values are 
prime and what the factors of the non-prime N, are. (Note: not all 
N, are prime, but all of N, 's prime factors are larger than P, and 
less than (1 + /1l ). 



25. Knowing that our calendar repeats on a 400-year cycle, determine on 
which day of the week the 13th day of the month is most apt to occur. 
(Is it really Friday?) 

26. Write a program to make a table showing the values of 

N N 2 R 

(Where R is the remainder when N 2 is divided by 12.) 

for N = 1, 2, 3, ...,20. Then jump to a conclusion (call it a 
conjecture , if anyone asks you) and then either prove or disprove 
your conjecture. 

27. Determine the sum of the first fc terms in the series 

1 + 22 + 333 + 4444 + . . . 

For a solution, consult page 807 (E 1405), American Mathematical 
Monthly Vol 67 ( 1960). 



28. Determine all of the 4-digit integers which are perfect squares and 
in which all four of the digits are even . Your final program should 
produce the results in less than 3 seconds of TRS-80 Level II BASIC 
RUN time. If it takes much more than that, please do some additional 
analysis and try again. 

29. Devise a program that will draw a dart target on the TRS-80 screen 
(squares are much easier to draw than circles), with numbers shown in 
each area (including negative nunfcers outside the target if you wish). 
Then permit a player to toss 5 darts by typing coordinates X,Y of a 
point. Add a little "wobble" to the point chosen by using X = X + 
(HND(9) - 5) : Y - Y + (RND(5) -3) or some such device before display- 
ing SET(X,Y) as a (first blinking, then permanent) pixel on the screen. 
Your program should also keep a running total of the nunnfoer of points 
the player made. 

After the program is up and running — rewrite it so that the cen- 
ter of the target is not at the center of the screen. Also, permit 
the gamemaster to assign the values to each target area before the 
game starts. 
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writing its digits in reverse order—that is, the reverse of N^1089 
is R=>9801 and the reverse of N-13 is R=31. 

a) Your project is to find values of N such that N does not equal 
its reverse, N?R, but the product N*R is a perfect square. Since 
1089*9801 - 10673289 - (3267)2 such numbers clearly exist. How many 
can you find? 



31. The numbers 12 and 21 are reverses of one another, as are 144 and 
441, since they contain the same digits, but in reverse order. In- 
terestingly, 12 z = 144 and 21 2 - 441. Find other pairs N and N* 
such that N and N' are reverses with N#T, and such that N 2 and (N') 2 
are also reverses. 



32. You t^orrnw nn nmnimt P dollars at 1 r% ercent ^cr annum interest rate 
2H OS. un P aid balance . You agree to pay off M dollars per month. 
Write a program that will print out a table showing at the end of 
each month: 

Amount of interest Amount of principal Remaining Total Interest Total 
paid that month paid that month principal paid to date paid 

to 
date 

Note that if in the last month (principal + interest) < M you should 
not have to pay the full $M. 

33. Lesson 4 contained a program designed to help you learn where the 
various pixel blocks were located on the screen. Extend the idea 
by first having the player type a difficulty number N where 1 is 
hard and 9 is easy, perhaps using 

INPUT "PT,KA5Tff TVDT? nrtrnTpTTT ^rnr Knnnrrtrn Ttryrttrrrm-r 1 /TT *rw^ «»» r . n /t?^tm . * T 

Then give the player 1+HND(N) chances to locate the lighted block 
with blinking pixels before clearing the screen and choosing another 
randomly positioned' lighted block. 

34. Write a program to accept a positive integer K and then type out K 
primes of the form 1ST + 1. 

Example: If K = 3 

the primes are 2, 17, 37 

each of which is prime and of the form (N 2 + 1) . 
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:JR " Tn^ L^ rm \n}tS U l iX % 2 °,T tewer ^^ instructions without us- 
caricature of a face or person or animal. 

36. Design a progran; i which will serve as a timer for a series of lO-min- 
ute speeches. When the time keeper typis~HM [WM1 your pr™ 
^°" 1< l^ 8Pl ; y 10 mmVES mFT on t»» screen in^Sa si^ leS 

2ts n Ti r r£lT n Tr+ ^^ ChaBge 6Very «*»**• When Ss 2£er* 
gets to 1 minute left the program should display some attention 

S SiS 106 on the screen md the ^^ *° * ouble siz * ^ ers 

MINUTES 59 SECONDS 

58 SECONDS 

etc until SECOTO is reached, whereupon the screen should go 
So ( S5u?5 y inCluding M audl ° blast if y^ are equipped fof 

37. Prove or disprove that, for N a positive integer, 

N u + 2N 3 + 2N 2 + 1 i s 
n^yer a perfect square. (Don't expect the computer to do this for 

38. Your local Utopia Society decides to replace their weekly Bingo 
session with a Numbers Betting Game to be available in gas stations 

^l g rwf^ ST 3 ™, Pe ° Ple ^ Place tets on ** three di ^ it nuiber 
from 000 to 999. The winning number is the three digits in the 

thousands places of the number of shares sold~oFtbeNe^ York Stock 
Exc ^ an i^ n that ^ The ^y° ff is 5 °° times the amount bet for bets 
up to $20. For bets above $20 the payoff is $10,000 plus 100 times 
the amount bet. 

Your first task is to write a program to sJunulate the betting system 
and come up with estimates of likely profits or losses. You should 
also discover (with or without using a computer )what amount of bet 
will produce the greatest payoff for the bettor. If all bettors wag- 
ered this amount (best possible for them, worst for the Utopians) 
how much would you expect the Utopia Society to make or lose on each 
approximately $10,000 that was bet? Assume that 10£ of each dollar 
bet goes to the person taking the bet, and 15<5 of each dollar bet is 
other overhead. 

39. Compute and print the number 2 75 exactly. 
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40. Find all positive integers X,Y,Z such that 
X 2 + Y 2 = Z 2 with Z<1000. 



Conpare the speed of your program with the speed of programs written 
by your friends. 



tx) iwu i\ju£> ox <squiti leugiu tu^ uxvxueu xiitu &jv aiiu *s*±o equal 
parts respectively. Their ends are coincident. Find the divisions 
which are nearest together. 

b) Same problem but divide the two equal rods into M and N equal 
parts. Write a program to accept positive integer input M and N 
and display the two values which are nearest together. 



42. Consider the recursive relation detined by: 

let B = The biggest number that can be made by rearranging the 
digitsof %. 

S = The smallest number that can be made by rearranging 
the digits of %. 

N k + ! = B - S 

a) If Nq is a four-digit starting valxae, one of two things happen: 

i) If all the digits of Nq are identical, the Nfc+1 = for all 
K l°* 

li ; If Nq has at least two distinct digits, then the relation con- 
verges to Nfrfi - 6174 which then repeats forever. Investigate 
t,nis phenomenon . 

b) If Nq is a six-digit integer, there are 384 non-zero possible 
values of Ni, some of which lead to the repeater 631764, but 
some of which do not. Investigate other starting values Nq 
having 6 digits. 

c) Investigate the N k+ ^ = BIG - SMALL phenomenon for starting 
values of other sizes. 

43. It is well-known that the reciprocals of integers form repeating 
decimals of period p (we say, p = if the expansion terminates as 

— »> I/O RAA. ~* — "I ■#*•- 1 /O — OO. ~.4.„ \ r\.,„ „■ M«, 1~ -i — *-~~~4.* 

wjla .*./ *j — .«aa/, y — x a.kjx x/ xj — , *j*j , cuu. ) \ju± y±. Ktu-ixau 10 %aj uicauc 

a table which will give the smallest positive integer N(K) such 
that its reciprocal has a repeating decimal expansion of length K. 
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44. If Ng is a positive integer, it can be shown that the recursive 
relation Nk+l - (The sum of the squares of the digits of %) will 
either converge to 1 or will reduce to a self -repeating cycle 37 
58, 89, 145, 42, 20, 4, 16, 37, . . . 

a) Do so. Can you prove that every positive starting value N 
will eventually either converge to 0,0,0, or to the cycle 
20, 4, 16, 37, .. . 

b) The related problem for the sum of other powers of the digits 
also merits investigation. Do so. 

45. It is a corrmon practice in mapping to approximte the area of a 
lake or island or other irregular shape by using an irregular poly- 
gon, whose area is easier to compute than is the area inside a 
curved boundary. 

Write a program into which the number N of vertices and the X and 
Y coordinates of the vertices (X ± , Y ± ) of the polygon in consecu- 
tive order may be input and the program will then compute the poly- 
gonal area. It will be necessary to either find or devise a suit- 
able formula. Remember this polygon is not a regular polygon since 
its sides may be of unequal length. 

46. Given two values A and B, determine values X, Y, and Z such that 

A =, X _ Y _ Z 
X Y Z B 

What will your program do if A and B have different signs? 

47. Liouville discovered an interesting procedure for producing 
sets of positive integers with the property that the sum of their 
cubes is equal to the square of their sum. One such set is 

I 3 + 2 3 + 3 3 + 4 3 =(l + 2 + 3 + 4) 2 . A bit of induction 
wall show that for all N, l 3 + 2 3 + 3 3 + . . .+ N 3 = (1+2*3+ . . .+N) 2 . 
However, it is not known whether or not Liouville' s method 'will 
produce all such sets. Write a program to produce such sets in a 
given range. Investigate the problem. 

48. Write a program that will compute how much an investment of P 
dollars will be worth Y years from now if it is invested at I 
percent per annum interest, compounded N times per year. 

A useful formula is: 

V = P*(i + I/(100*N)) N * Y (Where V is the value after Y years.) 
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49. Desi 071 - a oro* r rani to coach enjer^encv first— aid treatment at the "Boy 



Scout" level. The program should ask questions answerable by 
NO and prescribe action based on the response. 



YES or 




"fp— • <^f 



Bind wounds to stop 
flow of blood. Do 
not use a tourniquet 
unless life is 
threatened. 




f 



~^~ 



Type nmi>er to indicate likely 
material ingested: 

1 Prescription medicine 

2 Other medicine 

3 Soaps, detergents, cleansers 

4 Insecticides, bugkillers 

5 Caustics: lye, Drano, bowl 

cleaner, Liquid Plumber 

6 Gasoline-like products 

7 Paints, stains, enamels 

8 Heavy oils or grease 

CM P GOTO 



&<b<b<b<b(k)(i)& 
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50. Either 1'ind a ten-digit positive integer N with each digit different, 
and such that N is also a perfect 10th power of an integer, or show 
that no such N exists. 

51. Consider a large lattice of points (100 x 100 would be large in this 
case and a big sheet of graph paper will do nicely ) with equal spac- 
ing in the x and y directions. Our real problem is to place as 
many points as possible on the lattice subject to the restriction that 
no subset of three points shall form a right triangle. Before tack- 
ling the real problem, consider the much simpler problem of a program 
to find and print out 6 or 8 patterns of points on the lattice which 
have the property that no three points form a right triangle and that 
the set is maximum in the sense that if one more point were added to 
the given arrangement, a right triangle would be formed. Possibly 
placing points down the diagonal has this property. Then try to ans- 
wer (with proofs) the questions: 

a) What is the largest number of points which may be so placed? 

b) What is the smallest number of points in a maximum set? 

c) Restate the problem so that using every point of two adjacent 
sides of the square excepting the comer point is not a solution 
and solve the new problem. 

52. Write a program to sort a set of 25 names alphabetically. Ponder this 
one. Sorting represents one of the most time-consuming uses of modem 
computers. Consider sorting and entering the approximately 100 000 
grades received by 20,000 students each term at a major university. 

53. J. Maxfieid has shown ( Math Magazine , Vol. 43, #2 March 1970 pp 64- 
67) that given a sequence~bl digits K = d d d d , there exists an 
integer N such that N! begins with the sequence of digits K. Write 
a program to create a table such that the smallest such positive inte- 
ger X(K) is determined for each K < 100. You may also wish to print 
out the floating point value of N! if it will be available at no addi- 
tional cost. Eventually, we would like a formula for N(K) = smallest 
positive integer N such that N! begins with the sequence of digits 
K, but that may be too much to hope for. Your table might well re- 
semble the one below: 

i i r^ 

2 2 2 

3 9 362880 

4 8 40320 

5 7 5040 

6 3 6 

7 6 720 
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54. Mathematicians have proved that there exist arbitrarily long strings of 
consecutive positive integers such that each of the consecutive inte- 
gers has as a factor, a perfect square greater than one (probably 
different squares for different integers). Ibis may be restated as 
follows : 

Given a positive integer N, there exist strings of N consecutive 
positive integers each of which contains a factor which is a per- 
fect square greater than one. 

if « = a 48, 49, 50 contain 4 2 7 2 5 2 as factors. 

98, 99, 100 contain 7 , 3 , 10 as factors. 

If N = 4 242, 243, 244, 245 contain ll 2 , 3 2 , 2 2 , 7 2 factors. 

If N = 7 217070, 217071, 217072, 217073, 217074, 217075, 217076 

contain as 

factors 7 2 3 2 2 2 113 2 ll 2 5 2 4 2 

Your problem is to find the first (i.e., involving smallest inte^rs^ 
string of N consecutive integers each of whictTcontains a square >1 
as a factor for N = 2, 3, ..., 10. 

55. This one is tough! Mathematicians have shown a similar theorem to 
that given in Problem 54 holds with "perfect square*' replaced by 
"perfect cube" or even "perfect Kth power". Investigate this for 
K = 3, 4, 5, and N = 2, 3, ..., 10. (Or even N = 2, 3, 4, 5, 6, for 
starters. ) 

Examples: 3rd Powers (K = 3) 

^ 2 80 81 
8 27 

N=3 13?5 1376 137y 

125 8 27 

N=4 

22S24 22625 22826 22627 



4th Powers 


1* 


= 4) 




N=2 


80 
16 




81 
81 




2v=3 


33614 


33615 33616 




2401 




81 


16 



8 125 27 1331 

nxTm a set of distinct positive integers, each ox which is less than 
100, such that it satisfies both of the following conditions. 

a) No combination (or subset) of them added together will total 100. 

b) The set contains as many distinct, positive integers as possible. 

Hint: You may be able to solve this without usin 0, a computer. 
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57. The square of the number 36303636364 has the unusual properly ( in 

*^ e ^ , } that the second half of the square is an exact duplicate of 
the digits in the first half 

(3636363S364) 2 - 13223140498,13223140496 
as shown by the central corrma above. 

Such periodic squares also exist in bases other than 10. For example, 
in base 4, ' 

(21213 u ) 2 = 11301, 11301^ = 378225 10 = (615 1Q ) 2 

Your problem is to write a program that will examine perfect squares, 
expressed in some base B > 1, (use base B - 10, if you wish) and 
find perfect squares whose expression in base B is periodic (period 
2 or more). See Mathematics Magazine , March 1975, p. 97. 

58. An integer (whole number) greater than 1 is said to be prime if its 
only positive factors are itself and one. There are many 4x4 
arrays of digits such that each row and each column is a 4-digit 
prime. 

Example : 6 1 8 9 Where 6189 6359 

3023 1021 

5273 8273 

9137 9337 are each prime. 

a) Find some additional such arrays. Then, hunt for arrays whose 
main (upper left to lower right) diagonal also contains a prime. 

b) What happens if you try to find 5x5 arrays containing 5-digit 
primes in each row, each column and main diagonal? 

59. Write a program to plot a graph Y = f(X). 

Your program may request the user to put the function in a certain 
statement. It should ask the user for what range of lvalues he 
wishes the graph plotted and then conpute (or ask the user) for the 
largest and smallest Y-value that will be used. It should then scale 
the function suitably for display on the CRT screen. Your program 
should also display for the user (perhaps using PRBTT @ 960, " ") 
the X-range and the Y»range covered by the graph. 

60. Find the smallest positive integer M such that 

N = 7#ia" + 1 is not prime . 
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1 


8 


9 


3 





2 


3 


5 


2 


7 


3 


9 


1 


3 


7 
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61. tana ana print all the five-digit positive integers which contain 
exactly the same digits as their trebles. The leading digit must 
not be zero. 

Example: 1(5035 * 3 = 30X05 

Please also record the computer time used on your final run. Compare 
with that of other TRS-80 users you know. 



62. Many people from Archbishop John Tillotson (c. 1650) through Kurt 
Vonnegut (1950) and beyond have toyed with the idea that if enough 
monkeys were permitted to pound typewriters for long enough, all the 
great classics of literature would eventually be reproduced. We can 
easily improve the chances of something legible being produced by 
picking keys in the approximate order of their frequency in normal 
English rather than at random. Write a program that will print out 
the following symbols, with the given approximate frequency per 1000. 
To sirfiplify the piobXtau we restrict our selection of puuCtuatjLGii to 
"space", and have omitted V, K, Q, X, J, and Z, which have very low 
frequency in English. 



KEY space 


E 


T 


A 





N 


I 


R 


S 


H 


FREQUENCY/ 1000 223 


100 


77 


62 


62 


54 


54 


54 


46 


38 


KEY D L 


F 


C 


M 


U 


G 


Y 


P 


B 




FREQUENCY/1000 31 23 


23 


23 


23 


15 


15 


15 


15 


15 





You may be able to further improve the likelihood of obtaining at 
least occasional words by including digraphs (two-letter groups) as 
well as single letters. English di^T^^^h frequencies are a^oroxi— 
mately 



digram th he i*s an in cw re at ed gr imd && 

FREOUENCY/1000 38 3i 18 17 17 16 14 14 13 12 12 12 



Additional frequency data for English, French, Spanish, German, and 
Italian are available in Sophisticated Ciphers , available from Mu 
Alpha Theta Math Club, Room 423, 601 Elm street, Norman, CK, 73019, 
or at your library. 



63. Find all n-digit positive integers in which the n-digit uhui&er is an 
exact n-th power of an integer. 

Examples: 81 = 9 2 125 = 5 3 



%09 



Page 17-23 



6*1. 'l\vo positive integers are luuicable (friendly) II Lho pmpor (includ- 
ing one, but not including the number itself) divisors o! each ;uid up 
to the other. 220 has divisors 1, 2, 4, 5, 10, 11, 20, 22, 44, 55, 
110, whose sum is 284. 284 has divisors 1, 2, 4, 71, 142, whose sum 
is 220, thus 220 and 284 are said to be amicable. Some other ami- 
cable pairs are (17296, 18416) and (1184, 1210). Write a program 
that will find all amicable pairs between two given bounds S and B 
and which will also keep track of any number which has a divisor sum 
greater than B, so these can be used in a future run with 
(new S) « (old B) and a larger B. Your final program should also 
account for any "carry over" values from previous runs, 

65. Amicable pairs (problem 64) have been generalized to amicable chains 
(sociable chains) in which the sum of the proper divisors of each 
number in the chain is the next number and the last member of the 
chain has the first member as the sum of its divisors. The only 
chains generally known are the two four- link chains (found in 1965); 

(2115324, 3317740, 3649556, 2797612) and 
(126*1460, 1547800, 1727636, 1305184), 

the live- 1 ink chain: 

(12496, 14288, 15472, 14536, 14264), 

and a stupendous 28-link chain which contains the number 14316. 
However, there are others. 

a) Write a program to investigate amicable chains containing 50 or 
fewer links. 

b) What happens to chains that do not loop back to the starting 
value? 



66. Write a program that will match up 50 men and 50 women as dance 
partners. Your first attempt can use numbers, if you wish, but the 
final result should be two lists; one with the men's names in alpha- 
betical order and showing the randomly matched partner's name, the 
other with the womens' names in alphabetical order and showing the 
name of each woman's partner (hopefully, the same matching as above). 
Each person should be matched with one and only one partner and that 
partner should be of the opposite sex. 

67. a) Write a computer program to accept three values M, D, Y and 

determine whether or not they are acceptable values for Month, 
Day, Year, in that order. 

b) Extend the above program to accept two sets of three numbers and 
if both are acceptable as Month, Day, Year values, detemlne the 
number of days between them, including both dates in your count. 
Example: 2, 20, 1978 to 2, 22, 1978 is 3 days. 
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/\ computer xs apt to oocaxn oxiiereu'L vaxues xor 
F(N) = 1*2*3*... (N-1)*N and for G(N) - N*(N-1)*. . .3*2*1. 
Furthermore, the difference is apt to be non-trivial. For N - 30, 
the difference can be greater than a quintillion (and that's more 
than the number of cents in the national debt). Investigate this 
phenomenon, \ising a program of your own devising, or using: 

100 FOR N - 1(5 TO 50 



110 


F = 1 






12,$ 


G - N 






130 


FOR K - 


2 TO N 




140 


F = 


F*K 




150 


G = 


G*(N-K+1) 


160 


NEXT K 






170 


PRINT N 


, f; g, 


ABS(F-G) 


180 


NEXT N 







69. Mathematicians have shown that given a sequence of" digits 

S = d^ada. . .d n there exists an integer N such that 2^ begins with 
the sequence S. (As a matter of fact, for 2 we may substitute any 
positive integer which is not a power of 10, i.e., not 10°=1, 10 x -ip, 
10 2 =100, etc.) 

Your problem is to produce a table giving S, N, 2 N for S - 1 to 100 
such that N(S) is the smallest positive integer such that 2 R v b ) 



ins with S. 


I think the 


first 


few values are: 




S 


Smallest N>0 


2* 




1 




4 




16 




2 




1 




2 




3 




5 




32 




4 




2 




4 




5 




9 




512 




6 




6 




64 




7 




46 




70368744177664 




8 




3 




8 




9 




53 




etc. 




10 




10 








11 











70. Problem 11 (Lesson 5) asks you to generate and print out in increas- 
ing order of size, the positive integers of the form n = 2^-3 r " 
where k> andm= 0. Generalize this to integers of the form 
A& • B m where A and B are read using an INPUT statement. 
Note that A and B need not be prime. Your program should work if 

A — (2 -J O — """V 

tx — \J OllU O — 1U, 
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71. Use mi arrav containing the pzx)j>er fractions in lowest terms to 
establish a" position number" for each entry. In the array each 
entry in row k shall have (k+1) as denominator and the numerators 
in a given row shall be in increasing order. 



1/2 








1/3 


2/3 






1/4 


3/4 






1/5 


2/5 


3/5 


4/5 


1/6 


5/6 






1/7 


2/7 


3/7 


4/7 


1/8 


3/8 


5/8 


7/8 


1/9 


etc. 






1/10 


etc. 







5/7 6/7 



Since only those proper fractions in lowest terms are included, the 
rows are not of easily predictable length. 

Establish a position number N(a) for each fraction a in the array 
by siiiply counting the entries, row after row, from left to right 
until a is reached. 

Thus N(l/2) = 1 
N(l/3) = 2 

N(l/4) « 4 
N(2/3) = 3 
N(3/4) = 5 

and so forth. In this fashion one establishes that 

N(l/13) = 46 

N( 15/16) = 79 

N( 1/100) « 3004 

N( 3/500) - 75917 

N(7/1240) = 467048 (or do they?) 

The challenge is to determine formulae or an algorithm that will 
enable you to do either (or both) of the following 

1. Given a proper fraction a in lowest terms, determine N(a). 

2. Given an integer K, determine the corresponding proper 
fraction a such that K = N(o) . Use a computer to help if 
you can. 

72. Program a game of your own choice on the computer. 
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73 The problem of placing eight queens on an 8x8 chess board so that no 
queen can attack any other queen (queens attack any piece uiey can 
reach by roving in a straight line horizontally, vertically, or on 
either diagonal) is an old one. You may have considered the problem 
before. You will find it discussed on p. 161-2 of W. W. Rouse Ball s 
interesting book, Mathamtical Recreations & E ssays or in Chapter 10 
of M. Kraitchik's admirable book, Mathematical Recreations , both of 
which should be available at your local library. 

.. i . --I JUT -0^1,-ot* -t P TT/-V11 liri oVl Villi- thp 

you may write a program lu &uxvc ui^ ^v^^ ** j — , --- 

problem proposed here is to examine the following program and see if 
you can figure out how it works and why it produces all 92 possible 
solutions to the eight queens program. 

2 OS 

4 PRINT " EIGHT QUEENS PROBLEM (RUNNING TIME ABOUT 40 MINUTES)" 

6 PRINT 

8 PRIM 1 " 15863724 MEANS 1 ' 

10 PRInT :: TIE QUEEN IN THE FIRST CDLumN 13 ON RCiY 1;" 

12 PRINT " THE QUEEN IN THE SEOTD COLUMN IS ON ROW 5;" 

14 PRINT " TKE QUEEN IN THE THIRD COLUMN IS ON ROW 8;ETC. n 

16 PRINT 

20 DIM R(8) 

50 N « 

100 O0 

200 OC+1 

300 R(C)=0 

400 IF R(C) < 8 THEN 600 

500 oc -i 

510 IF C = THEN PRINF'END OF SEARCH": STOP 

520 GOTO 400 

600 R(C) = R(C) + l 

605 IF C < 2 THEN 66$ 

rtirti fOR CI = 1 TO C -1 

620 *"" irR(C)=R(Cl) OR C+R(C)=C1+R(C1) OR R(C)-OR(Cl)-Cl THEN 400 

650 NEXT CI 

66$ IF C < 8 THEN 200 

690 N=N+1 :PRINr M SOIi7riON#" ;N; M = n ( 

700 FOR Cl=l TO 8 

710 PRINT R(Cl); 11 IT ; 

720 NEXT CI 

730 PRINT 

740 GOTO 500 

74. If you are seriously interested in more advanced confuting, investi- 
gate one of the following languages for your TRS-80. 

"C" or "tinyC" 

"PASCAL" 

"Z-SO" chi^ lan^ma^e Center from BASIC II through USR( ) function) 

PILOT (a language designed for Cpnputer Assisted Instruction) 

75. Study a program written by someone else, and then inprove it. 
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A FINAL WORD from your authors 

Good Programming Practices 

There is no such thing as the correct programming style. Entire 
books have been written on the subject, but even the most skillful prac- 
titioners of the programming art disagree on what is best. However, there 
are several common sense principles that merit consideration. Even these 
are not immutable rules, but it is prudent to follow the suggestions un- 
less you have a good reason for not doing so on a given program' . Here 
goes: 

1. Your program should, in general, read from top to bottom in a logical 
fashion, except for subroutines which usually are listed after the 
completed program. Block the various fragments into different 100' s 
in statement numbers. Don't feel compelled to use every tenth state- 
ment number. 

2. Use occasional REM statements to explain what is happening. If you 
must use a GOTO statement in the heart of your program, include a REM 
statement explaining why. 

Your programs will have a neater appearance, and be easier to debug 
if you place five blank spaces between REM and the start of your 
remark. Try it, you'll like it. 

3. Whenever you use a FORr-NEXT loop, indent the instructions between 
FOR and NEXT three spaces. If you use nested K3R-NEXT loops, stair- 
step them. It makes programs much easier to understand. 

4. Use the faster forms whenever feasible. 

(See Lesson 11.) 

5. Get to know your computer. Become thoroughly familiar with the quirks 
and eccentricities of your computer and of the BASIC (or other) lan- 
guage you are using. 

Above all: 

Don't let these or any other rules spoil your fun — but do remember 
that well-written, easy-to-follow programs are no harder to think or 
write than sloppy kluges and are much more profitable in use and main- 
tenance. Think of a computer program as a living, growing, ever-changing 
thing, not as a finished, static object. 



HAVE^FUN 
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ABS(exp), 186 

Algorithm, 95 

AND, 179 

Arithmetic Functions, 186 

ABS(exp), ATN(exp), OBL(exp), 
CINT(exp), OOS(exp), CSNG(exp), 
EXP(exp), FDC(exp), IISiT(cxp), 
LOG(cxp), SIN(exp), S(£T(exp), 
SQR(exp), TAN(exp) 

Arrays, 147 

"Art", Random, 66 

ASC{6tAing), 173 

Asteroids, Game Program, 119 

AJN(exp), 186 

AulO mm, mi, 184 
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Backspace Key, 5, 26 
Bar Graph, 54, 55 

Biological Simulations, 131, 134 
Bounce, Keyboard, 11, 108 

J&aagfring, 23 

Key, 2, 5, 7, 11, 26 



Concatenate Strings, 174 
Conference Proceedings, 181 
Continuous Function, 39 
Correction, Error, 40 
OOS(exp), 186 
Counselor, Robot, 176 
CSAVE, Saving a Program On Tape, 107 
CSNG(exp), 186 



IMF, 143 

DEFD&L, 86, 144 

EEFIOT, Variables, 144 

DELETE mm-nw, 184 

Deleted, 124 

Designators, Variable Type, 145 

Dice Itoowing Program, 130 

Display, Truncated, 21 

Double Letters, 108. 150 

Double Pi^cision Arithmetic, 86 

Double Precision Variables, 143 

In FOR... NEXT Loops, 151 
Double Size Letters, 12, 16, 26 



E 



Campus Planning Program, 56 

Cassette Program Loading, 105 

Cautions, 150 

OBL(e>cp), 186 

Challenge Problems, 32, 45, 46 

Oianges, 125 

Changing Instructions, 11 

OBR$ 

( ), 61, 62, 63, 165, 169, 173 

( ), PRINT, 166 

( ), Effects of, 61-63 
CINT(exp) ; 186 
Cipher Program, 175 
g&SO Key, 2, 5, 12, 26 
OOAD, 105 

OS, Clear Screen, 22 
Code Message Program, 175 
Coram, 9, 12 
Cbmmnds in Your Programs, 

Keyboard, 157 
Ocsputer-Assisted Problem Solving, 

Steps Jt?br, 80 



EDIT, 123-129 

Edit Mode Subcommands , 126 
Editing, 40 

Ehrenfest Model, Haree Molecules, 
"Guppy" Problems, 135 
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Key, 2, 5, 26 

LIST, 8, 26 

NEW, 26 

HEN. 26 
E-^8, 12 

Equation Solver. 34-39 
Erase, 5, 26 
ERROR 

Correction, 40 

Messages, 155, 156 
EXP(exp), 186 
Extended Print Instructions , 159 
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Factor Program, 191 

Pictorial, 44 

FAL3E, 179 9 

Pfcst N Such That N Ends in N, 92 

Easter Forms, 154 

Field Specifiers, PRJOT USING, 161 

Fix, Keyboard, 11 

FlX(exp), 186 

Floating-Point Variables, 12,143 

Double Precision, 86, 143 
Flow Chart, 137, 138, 190 
K)RK - TO 2(3 STEP .5... NEXT K, 42 
FOE Q = 1 TO 40i&: NEXT Q, 68 
EOR...NEXT, 33 
Forms, Faster, 154 
FRE(4#Uitg), 173 
Free Improvements R>r Cassette 

Use, 103 
functions, Continuous, 39 
Functions, Graphing, 64 



Game Program, 121 

Asteroids, 119 

Guessing Game, 113 

Hangman, 114 

Pixel Hunt, 54 

Reverse Memory lest, 117 

Treasure Hunt, 112 
GOSUB nn, 185 
GOTO wt, 8 
Graph, 168 
Graph, Bar, 54, 55 
Graphics, 165 
Graphing, 163 
Graphing Functions, 64, 67 
"Guppy" Problem, Three Molecules, 

Ehrenfest Mode, 135 



H 



Hangman, Game Program, 114 
Headings, 23, 25 
Histogram, 55 
Hunt, Pixel Hunt Game, 54 



Improving Programs, 110, 194 
Information, Additional, 180 
INKEX$, 173, 175 
Instructions: See Instruction Index 



Jargon Phrase Maker, 171 
Journals, 181 



Sh—S l. 3, 5, 26 

EB5D , 2, 5, 12, 26 

IMfflU 2, 4, 5, 26 

mm, 1 

Keyboard, 1 

Keyboard Bounce, 11, 108 
Keyboard Commands, 157 
Keyboard Fix, 11 
Keyboard Instructions, 18 



Large Numbers, 84 

Last 3 Ittgits, 81 

lMBT(A&ung, n), 174 

LEN(A fttcnfl), 173 

LIST 1 ENTER ) , 3, 8, 26, 184 

LIST mm~nn, 184 

LOG(exp), 186 

Logical Operators, 178 

"Loop, Tight", 60 



M 



Malfunctions, 192 

Map, Video Screen, 49, 52 

MEMMfir SIZE, 6 

Message, 57 

Micro Research Problems, 75, 97, 

188, 198 
MID$(4#tXng, p $ n), 174 
Music, Sound and, 108 
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NOT, 179 

Numbers, Random, RND(p), RtO(n), 47 

Niiieric Character, 161 







W N GOSUB mm, nn, pp, qq,... 

CM N GOTO a, b, c z. 68 

CN N GOTO man, cm, pp, qq, 
Operators, Logical, 178 
OR, 179 



185 



185 



Research (micro) Problems You May 
Undertake, 97, 198 

RESTORE^ 1.85 

RETTUm, 185 

Reverse Memory Test Game. 117 

m<M5$(i>£JiinQ, n), 174 

RND 

(K), 129 

00, 68 

(0), 68, 129 
Robot Counselor, 176 

bu n 3, 68 

iENJERl . 26 
mm, 184 



PEEK, 187 

Periodicals, 181 

Pix^l Vi\mt Game, 54 

Pixels, 52, We' 

POINT(x,!/), 53 

FCICE, 187 

POKE Address, Pixel Number 

Instruction, 167 
Precision Variables, Double, 143 
PRINT, 2 

@, 48, 68 

CHR$(u), 68, 166 

STRING?, 163, 164 

USING Field Specifiers, 161 
Problem: N Such That N Ends in 

N, 79 
Problems, Challenge, 32, 45, 46 
Proceedings, Conference. 181 
Program, 

factor, 191 

Game, 112, 113, 114, 117, 119, 121 



Question Mark ? 41 



R 



Radio Shack Computer Center, 180 
HAMXM, 129, 187 
Random "Art", 66 
Random Nimfers, 47. 129 
MEET, 6 



Saving Computer lime, 19, 89, 92, 

1^,196ff 

Saving Memory Space, 153 
Saving Program On Tape, CSAVE, 107 
Screen, Video Map, 49, 52 
Scrolling, 51 
Semicolon, 12 
Sentence Generator, 170 
SET(x,(/), 53 
SCT(ex p), 186 
I SHIFT I . 1, 12, 26 
Simulate, 139 
Simulation, 129, 131 
SIN(exp), 186 
Snowflake, 69 
Solver, Equation, 34-39 
Sound and Music. 108 
Space, Out of String, 150 
Speeding Up Programs, 154 
SQR(exp), 186 
Static 
Statistics, 146 

Problem Solving, 80 
Store the Worcfe in DPJTA 

Statements, 170 
String Concatenation, 174 
String Instructions, 173, 174 
Strings, 169-179 
SJmN($iK,"chaMicWi" on. numbeA), 

163, 174 
STR$(exp). 174 
Stfocoranands, Edit Mode, 126 
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Subscripted Variables, 146 W 

Symbol >- , 5, 12, 41 

SYSTEM, 184 Wages, 45 

Wild Screen, 120 
T Word Generator, 171 

TAB(exp), PRINT, 160 
Tables, 19 
TAN(exp), 186 
I&pe 

Care, 104 

Cassette, 103 
Three Molecules, Ehrenfest Model, 

"Guppy" Problem, 135 
"Tight Loop", 60 
Time, 88 
Tips, 150 
TRACE, 185 

Treasure Hunt, Game Program, 112 
TROFF, 185 
TON, 185 
TRUE, 179 

Truncated Display, 21 
Ttoelve Days of Christmas, 46, 75 

U 

IBR(w), 185 



VAL(A&LLng) , 174 

Value, PRINT USING String, 161 

Variable 

l&PDBL, 144 

EEFINT, 144 

Double Precision, 143 

Floating-Point Single 
Precision , 143 

Integer, 144 

String, 144 

Subscripted, 146 

Type Designators, 145 

Types, 143 
Video Screen Map, 49, 52 
Volume , 105 
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Special Characters 



! 

# 

$ 



Abbreviation for REM ^M 

Makes variable integer-precision 

Makes variable single-precision 

Makes variable double-precision. 

Makes variable string type. 

Separates statements on the same line. 

Same as print (but L? cant be strtstrtuted for lprint) 

print punctuation spaces over 
to the next 16-column PRINT zone. 

PRINT punctuation separates items in a 

print list but does not add spaces when they are 

output. 



Edit Commands 



EDIT Puts computer into edit mode for specified 

Edit CombiiJi. 

EDIT 100 EDIT. 



Erroi Messages 



Abbreviation 

NF 

SN 

RG 

OD 

FC 

OV 

OM 

UL 

BS 

OD 



ID 

TM 

OS 

LS 

ST 

CN 

NR 

RW 

UE 

MO 

FD 

L3 



Explanation 

NEXT without FOR 

Syntax error 

RETURN Without GOSUB 

Out of data 

Illegal function call 

Overflow 

Out of memory 

Undefined line 

Subscript out of r ange 

Redimensioned array 

Division by zero 

Illegal direct 

Type mismatch 

Out of stnng space 

String too long 

String formula too complex 

Can I continue 

No RESUME 

RESUME without error 
Undefined error 
Missing operand 
Bad file data 
Disk basic feature 



■Cfij 

■cm 

CE 
QD 

CD 
■CCc 

CD 

cm 

■CDc 

CE 

(SUED® 



wam 



MMW 



e 



Cancels changes and starts again. 

Changes n characters. 

Deletes n characters. 

Ends editing and saves aH changes. 

Hacks line and inserts at end 

Inserts characters. 

Kills all characters up to nth occurrence of < 

Lists the line. 

Quits edit mode and cancels aH changes. 

Searches for nth occurrence of c. 

Extends line (inserts at end). 

Causes escape from command. 

Records alt changes and exits edit mode. 

Moves cursor n spaces to the right. 

Moves cursor n spaces to the left 



Control Keys 



© 



(WITOQ 



llAV.i 



iCCBB) 


(wr?ie 


$MCEtM) 


e 


'SfflFTj© 


CD 


USED CD 


■SHIFT) (11 f-. 



n«< 



J© 



Cancels last character 

typed; moves cursor back one space. 

Erases current line. 

Interrupts anything in progress and 
returns to command !evet. 

Clears the screen. 

Signifies end of current line. 

Enters a space (blank) character and 
moves cursor one space forward. 

Advances cursor to next tab position. 

Puts display tn 32~character mode 

Line feed and carriage return. 

"Control" key — hotd down these 

two and press any key A-2 tor control A 

control Z 

Copies the display contents to the 
printer. 

Causes currently executing program to 
pause (press anv key to continue) 



